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Ô QUEÉUM 

COMPUTADOR? 


Desde épocas imemoriais, o ho¬ 
mem tem inventado ferramentas e 
instrumentos para ajudá-lo a fazer 
milhares de coisas diferentes. Pode¬ 
mos imaginar a ferramenta como 
uma espécie de extensão dos senti¬ 
dos e dos músculos do ser humano. 
O que é um telescópio, por exemplo? 
Nada mais do que a ampliação do 
sentido da visão. Sem instrumentos e 
ferramentas, certamente o homem 
não teria atingido o grau de civiliza¬ 
ção que tem hoje, nem progrediria 
tão depressa. 

Também o computador pode ser 
visto como uma espécie de ferramen¬ 
ta que o homem inventou para o aju¬ 
dar, ampliando os poderes de seu 


próprio cérebro. É usando o seu cére¬ 
bro que o homem é capaz de resol¬ 
ver problemas, decidir coisas e me¬ 
morizar informações. Com a ajuda 
do computador, entretanto, ele pode 
fazer cálculos complicadíssimos mui¬ 
to mais rapidamente do que com ou¬ 
tros meios. 

O computador também tem MEMÓ¬ 
RIA, ou seja, ele é capaz de guardar 
as informações e reutilizá-las. Essas 
informações, que são chamadas de 
DADOS, devem ser colocadas por 
um ser humano na memória do com¬ 
putador. 

Muitas vezes, os computadores são 
capazes de memorizar coisas que os 
homens não conseguem: listas lon¬ 
gas de nomes e de números, por 
exemplo. 

Um computador é capaz de achar 
rapidamente qualquer informação 
guardada em sua memória. Ele pode 
também comparar dados entre si, pa¬ 
ra mostrar, por exemplo, qual é o 
maior ou o menor. 

Tudo isso faz do computador uma 


ferramenta extremamente poderosa, 
um auxiliar indispensável do homem 
moderno, em um número enorme de 
atividades, nos bancos, nas empre¬ 
sas fornecedoras de energia, nas tele¬ 
comunicações, nas escolas etc. 



m computador 
pode fazer tudo? 


Entretanto, mesmo sendo tão pode¬ 
roso, o computador é uma máquina 
relativamente primitiva, quando com¬ 
parada com o cérebro humano. O 
computador não tem sentimentos, 
nem iniciativa própria. Ele só faz o 
que um ser humano mandar: essa 
pessoa é chamada PROGRAMA¬ 
DOR, e sua função é colocar no com¬ 
putador uma série de comandos ou 
instruções, que dizem exatamente o 
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que a mácjuinQ deverá reolizor. Esto 
série de ordens é chamada de PRO¬ 
GRAMA e, sem este, nenhum compu¬ 
tador funciona. 



computador 
é uma ferramenta 
universal 


A grande vantagem do computa¬ 
dor sobre os outros instrumentos e 
que, com um só aparelho, podemos 
fazer muitas coisas diferentes. Para is¬ 
so, basta colocar um outro programa 
em sua memória, e ele lhe obedece¬ 
rá. Por isso, dizemos que o computa¬ 
dor é uma ferramenta universal. Hoje 
em dia, com os robôs (que são compu¬ 
tadores dotados de força e movimen¬ 
to), o número de coisas que se pode fa¬ 
zer é maior ainda. Portanto, sabendo 
programar um computador, você po¬ 
derá dominá-lo completamente. 



importante 

aprender 

programação? 


Em muitas profissões, o computa¬ 
dor é uma ferramenta de trabalho 
muito importante e necessária. 
Quem quiser estudar para engenhei¬ 
ro civil, por exemplo, e não souber 
computação, vai ser .incapaz de cons¬ 
truir prédios grandes, estradas e tú¬ 
neis. Outras profissões, que ainda 
não usam muito o computador, usa¬ 
rão cada vez mais no futuro. Exem¬ 
plos: Medicina, Biologia, Educação, 
Direito, etc. Por isso é importante que 
todos aprendam alguma coisa sobre 
os computadores. 

É claro que nem todas as pessoas 
que usam computadores precisam sa¬ 
ber programá-los. Pode-se comprar 
um programa pronto, e bastará colo¬ 
cá-lo no computador e utilizá-lo devi¬ 
damente. Entretanto, só se consegui¬ 
rá dominar completamente o compu¬ 
tador se se souber programá-lo. Mui¬ 
tas vezes, não se achará um progra¬ 
ma feito por outros que realize exata¬ 
mente o que se quer. E, além disso, 
como se sabe, a programação de 
computadores é uma profissão cada 
vez mais valorizada e atraente. 

Até há quatro ou cinco anos a 
maioria das pessoas não tinha a me¬ 
nor chance de utilizar diretamente 
um computador no seu dia-a-dia. En¬ 
tretanto, com o progresso maravilho¬ 


so da eletrônica, surgiram computa¬ 
dores cada vez menores e mais bara¬ 
tos, que hoje estão ao alcance de to¬ 
dos. Esses novos computadores, cha¬ 
mados de microcomputadores, estão 
entrando em todos os ramos da ativi¬ 
dade humana, e em breve serão tão 
comuns quanto os telefones e os auto¬ 
móveis. Devemos nos preparar para 
esse futuro! 

r OMO É UM 

COMPUTADOR? 


Para entender como é organizado 
um computador, temos antes que 
examinar a maneira como ele é utili¬ 
zado. 

Podemos imaginar o computador 
como uma espécie de calculadora. 
Para efetuar um cálculo por meio de¬ 
la, .precisamos primeiro fornecer-lhe 
os valores que serão utilizados nas 
contas. Isso é feito pelas teclas, que 
também são usadas para informar à 
calculadora quais serão as operações 
a realizar (soma, divisão etc.). Uma 
vez fornecidos os dados e as opera¬ 
ções, a calculadora efetua os cálculos 
e mostra os resultados no visor. 

A forma de utilizar um computador 
não é muito diferente desta. Ele é for¬ 
mado por diversos elementos, cada 
um encarregado de uma função es¬ 
pecífica. 



ENTRADA: é a parte do computador 
que recebe os DADOS (números, le¬ 
tras) e o PROGRAMA (ordens e ope¬ 
rações). 

PROCESSADOR: é o elemento do com-' 
putador que mostra os resultados. 

Um computador pode ter diferentes 
tipos de entradas e saídas, ao contrá¬ 
rio das calculadoras mais simples. 
Na maioria dos computadores peque¬ 
nos (chamados de microcomputado¬ 
res) estas são as partes responsáveis 
pelas três tarefas: 

1) O TECLADO — parecido com o de 
uma máquina de escrever, é usado 


para informar ao computador os da¬ 
dos e as instruções ou comandos. Por¬ 
tanto, ele é o elemento de ENTRADA 
do computador. 

2) A UNIDADE CENTRAL DE PRO¬ 
CESSAMENTO — esse é o nome da 
calculadora que o computador tem 
em seu interior. Na maioria dos mi¬ 



crocomputadores, essa unidade está 
localizada na mesma caixa do tecla¬ 
do, e é formada por milhares de cir¬ 
cuitos eletrônicos de tamanho micros¬ 
cópico. Essa parte é o PROCESSA¬ 
DOR do microcomputador, e é tam¬ 
bém conhecida pela abreviatura 

(UCP). 

3) A TELA DE VÍDEO — a informação 
que for digitada (datilografada) no te¬ 
clado aparece ao mesmo tempo na 
tela de uma TV, ligada ao computa¬ 
dor: desse modo, pode-se ver o que 
se está fazendo. Quando o resultado 
estiver pronto, o computador tam¬ 
bém vai escrevê-lo na tela. Portanto, 
ela é o elemento de SAÍDA do nosso 
computador. 

Outra parte importante do compu¬ 
tador é a MEMÓRIA, da qual já fala¬ 
mos acima. A memória do computa¬ 
dor é capaz de guardar ao mesmo 
tempo um certo número de informa¬ 
ções. Por exemplo, muitos microcom¬ 
putadores podem guardar até 48 000 
números ou letras em sua memória. 
Por isso se diz que eles têm uma me¬ 
mória de 48 K (o K significa quilo, ou 
1 000 vezes: portanto, 


48 x 1 000 = 48 000). 


Não se vê a memória, a não ser 
que se abra a caixa do teclado. Esta 
é formada por milhares de circuitos 
microscópicos, do mesmo tipo que os 
do processador. 
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que é um 
programa de 
computador? 


Os computadores recebem ordens 
em uma linguagem própria, diferen¬ 
te da nossa. Assim, você terá que 
aprendê-la, para conseguir se comu¬ 
nicar com ele. 

A linguagem que a maioria dos mi¬ 
crocomputadores é capaz de enten¬ 
der chama-se BASIC. Ela foi inventa¬ 
da nos Estados Unidos há cerca de 
vinte anos. Por isso, cada ordem ou 
comando na linguagem BASIC é 
uma palavra em inglês. Entretanto, o 
número desses comandos é peque¬ 
no, o que torna fácil decorá-los. Com 
algumas aulas, você já saberá usá- 
los como se fossem sua própria lin¬ 
guagem. Aprender BASIC é muito 
mais fácil que aprender qualquer 
idioma estrangeiro. 

* Eis um exemplo de comando sim¬ 
ples em BASIC: 

PRINT 8 + 3 

Esta ordem ou comando do progra¬ 
ma tem o seguinte significado para o 
computador: 

ESCREVA O RESULTADO 
DA CONTA 8 + 3 

A palavra prínt quer dizer, "escre¬ 
va", em inglês. 

Normalmente um programa é 
constituído de uma série de instru¬ 
ções ou comandos dados ao computa¬ 
dor. Ele realiza um de cada vez, na 
ordem em que eles forem fornecidos. 

Todo programa digitado no teclado 
do computador é, primeiramente, 
guardado em sua memória. Assim 
ele pode se lembrar do programa, e 
repeti-lo para nós, tantas vezes quan¬ 
tas quisermos. Essa é sua grande dife¬ 
rença em relação às calculadoras. 

Infelizmente, a memória do compu¬ 
tador se apaga ao desligarmos a for¬ 
ça. Todas as informações guardadas 
se perdem, inclusive o programa. 

Por esse motivo, seria bom ter uma 
maneira de guardar o programa em 
outro lugar, para que não se perca 
ao desligarmos o computador. Assim 
não será necessário digitar de novo 
todo o programa, ao ligarmos o com¬ 
putador. 

Os microcomputadores têm uma 
maneira muito simples de guardar es¬ 
ses programas: um gravador cassete 
comum. Através dé um fio que liga o 
computador ao gravador, todas as 
instruções de um programa podem 


E S 


1.1. Marque V se for verdadeiro, ou 
F se for falso: 

( ) O computador é capaz de pen¬ 
sar sozinho. 

( ) O computador fica chateado se 
errar algum cálculo. 

( ) O computador não erra quando 
realiza algum cálculo. 

( ) O computador não tem memória. 

( ) O computador faz contas mais 
rapidamente que o homem. 

( ) O computador pode fazer coi¬ 
sas sem ser programado pelo 
homem. 


1.2. Defina com suas próprias pa¬ 
lavras: 

PROGRAMA: 

DADOS: 


1.3. Diga se concorda ou não com a 
seguinte afirmação, e por quê: 

UM DIA OS COMPUTADORES 
VÃO MANDAR NA HUMANIDADE 


1.4. Cite três trabalhos que o ho¬ 
mem faz com auxílio dos computa¬ 
dores: 


1 - 


2 - 


3- 


1.5. Escreva, na figura abaixo, os 
nomes das partes do microcompu¬ 
tador: 


simplificado. Escreva na figura abai¬ 
xo quais são os elementos de EN¬ 
TRADA e de SAÍDA da calculadora. 


1.7. Qual a diferença entre o tecla¬ 
do de um computador e o de uma 
calculadora? 


1.8. Escreva para que serve cada 
parte do computador: 

TECLADO: 

TELA DE VÍDEO:' 

UNIDADE DE PROCESSAMENTO: 
MEMÓRIA: 


1.9. O que é memória auxiliar, e 
qual é o tipo de memória auxiliar 
que os microcomputadores mais co¬ 
muns utilizam? 


1.10. Marque V se for verdadeiro, F 
se for falso: 

( ) BASIC é uma linguagem de 
computador. 

( ) Um idioma estrangeiro é mais 
simples do que o BASIC. 

( ) O BASIC é uma linguagem in¬ 
ventada pelo homem. 

( ) Um computador só pode ser 
programado na sua própria lin¬ 
guagem. 

( ) Um programa é um conjunto de 
instruções ao computador. 

( ) O programa de computador pre¬ 
cisa ser guardado na memória. 

( ) Existe uma parte da memória 
do computador que não pode 
ser apagada. 


1.11. Explique o que significam pa¬ 
ra o computador os seguintes co¬ 
mandos em BASIC: 

PRINT 12 - 45 

PRINT 29 + 3-8 * 


1.6. Uma calculadora eletrônica co- 1.12. Por que o microcomputador en- 
mum é uma espécie de computador tende BASIC logo que você o liga? 
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COMPUTADOR GRAVADOR CASSETE 


ser gravadas em uma fita cassete, 
quando você quiser. 

O computador grava essas informa¬ 
ções usando uma espécie de código 
Morse de alta velocidade. Quando 


você quiser colocar de novo o progra¬ 
ma na memória do computador, bas¬ 
ta "tocar" para ele a fita gravada, e 
ele reconhecerá o programa, automa¬ 
ticamente. 


Assim, o gravador auxilia a memó¬ 
ria principal do computador e por is¬ 
so ele é chamado de "memória auxi¬ 
liar". 

À medida que você aprender BA¬ 
SIC, você também será capaz de en¬ 
tender os programas de computador 
escritos nessa linguagem. E poderá 
também começar a escrever outros 
programas — os seus programas! 

Quando você ligar o microcompu¬ 
tador, ele já estará pronto para acei¬ 
tar instruções em BASIC, digitadas 
por você no teclado. 

Ele sabe BASIC porque essa lin¬ 
guagem já vem gravada em uma me¬ 
mória especial, colocada na fábrica, 
dentro da caixa do teclado. Essa me¬ 
mória nunca se apaga, ao contrário 
da outra, que vai ser usada para co¬ 
locar os seus programas e dados. 



Um aviso importante: embora seja 
possível aprender programação sem 
computador, isso não é recomendá¬ 
vel. Este curso permite que você tes¬ 
te as lições e os programas e realize 
os exercícios e os testes em um com¬ 
putador qualquer, do tipo indicado 
aqui. Você verá que o seu rendimen¬ 
to será muito maior. 


Neste curso não ensinaremos como 
montar ou ligar cada tipo de compu¬ 
tador: isso é facilmente encontrado 
nos manuais que acompanham os 
micros. Quanto à operação do tecla¬ 
do e do vídeo, as diferenças são as 
seguintes: 

— os computadores da Microdigi- 
tal (TK-82C, TK-83 e TK-85) têm exa¬ 
tamente o mesmo sistema de ope¬ 
ração e disposição das teclas. A 
única diferença é que o TK-82C e o 
TK-83 têm um teclado de membra¬ 
na (sem partes móveis), ao passo 
que o TK-85 têm teclas mecânicas; 

— a tecla chamada de NEWLINE, 
nos computadores tipo TK, é cha¬ 
mada de ENTER, nos computado¬ 
res CP-200 e Ringo. Entretanto 
sua função é exatamente igual 
em todos; 

— a disposição do teclado CP-200 
e do Ringo é ligeiramente diferen¬ 
te da encontrada nos TK. O 
CP-200 tem duas teclas SHIFT, ao 
invés de uma, e tem duas teclas 


COMO ESTUDAR BASIC 


Como utilizar este curso 

As lições do curso de BASIC são 
organizadas em capítulos, que irão 
apresentando os comandos e sua uti¬ 
lização em uma certa ordem. A não 
ser que você já conheça BASIC, não 
tente pular capítulos ou estudar fo¬ 
ra da ordem. Os capítulos são dividi¬ 
dos em seções distintas, cada um 
com três partes: 

— texto 

— exercícios 

— teste 


a marca ao compuxaaor. aiguiib uu- 
mandos que existem em um compu¬ 
tador não existem em outro, ou en¬ 
tão funcionam de modo diferente. Es¬ 
sas variantes são chamadas de dia¬ 
letos". Existem, por exemplo, diale¬ 
tos diferentes para os micros tipo 
TK-85, CP-500, TK-2000 etc. 

Em que computador estudar? 

Para que você aprenda melhor, 
sem ficar confuso com os diversos 
dialetos existentes, este curso ensi¬ 
nará apenas a variante do BASIC pa¬ 
ra os microcomputadores menores e 
mais baratos: TK-82C, TK-83, CP-200 
e Ringo Essas são marcas nacio¬ 
nais de microcomputadores, que fa¬ 
lam exatamente a mesma lingua¬ 
gem BASIC, e que são similares 
(compatíveis) com o microcomputa¬ 
dor inglês chamado Sinclair ZX-81 e 
o norte-americano Timex 100. 

Tudo o que você aprende aqui se 
aplica a todos os computadores des¬ 
sa linha, mas não a computadores 
de outras marcas. 

Diferenças entre os computadores 

Existem pequenas diferenças en¬ 
tro rrs diversas marcas indicadas. 


Você deve inicialmente ler o texto, 
seguindo atentamente todos os 
exemplos. Teste os exemplos dados 
no computador e veja os resultados. 
Tente modificar os programas, em 
seguida realize os exercícios propos¬ 
tos. Use sua imaginação e tente fa¬ 
zer programas, usando sua própria 


E lembre-se: não adianta apren¬ 
der uma linguagem qualquer, para 
depois não usá-la. Fatalmente você 
a esquecerá após um certo tempo. 
Durante e após o curso, use bastan¬ 
te o computador, sempre tentando 
criar novos programas! 
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C A P í T U L O 


OMO USAR O 
% MICRO- 
• COMPUTADOR? 


Agora que você já sabe como é o 
microcomputador, vamos aprender a 
operá-lo. 

M ontagem do 

micro¬ 

computador 


As instruções completas para liga¬ 
ção do computador podem ser lidas 
no próprio Manual do equipamento. 
Aqui damos apenas algumas instru¬ 
ções gerais. 

1) Ligue primeiro o computador, por 
meio de um cabo apropriado, no lu¬ 
gar onde se liga a antena externa, 
no aparelho de TV. Se algum fio já 
estiver ligado nesse lugar deve ser re¬ 
tirado. 

2) Agora ligue o computador na toma¬ 
da. Nos computadores tipo TK, isto 
deve ser feito através de uma FONTE 
DE ALIMENTAÇÃO. 

3) Agora ligue o fio da TV em uma ou¬ 
tra tomada. 

Veja como deverão estar ligados 
os fios: 



4) Agora ligue o aparelho de TV. Co¬ 
loque o seletor de canais no canal 2. 

5) Para ligar o computador use o in¬ 
terruptor marcado (LIGA-DESLIGA). 

6) Gire o botão de sintonia até obter 


a imagem de uma letra K na parte in- PARA DAR COMANDOS AO COM- 
ferior da tela. PUTADOR USAMOS O TECLADO 



7) Usando os botões de brilho e de 
contraste da TV, ajuste-os até que a 
letra K apareça o mais nitidamente 
possível na tela. 

Se você não conseguir enxergar 
bem a letra K, aperte algumas teclas 
do teclado. Veja como as letras que 
você apertou vão aparecendo na te¬ 
la. Assim ficará mais fácil acertar a 
sintonia. 

Se o computador já estiver monta¬ 
do, é muito mais simples colocá-lo 
em funcionamento: 

1) ligue o aparelho de TV. 

2) ligue o computador. 

Para desligar o computador, faça 
exatamente ao contrário: primeiro 
desligue o botão LIGA-DESLIGA, lo¬ 
calizado atrás da caixinha, depois 
desligue o botão de força do apare¬ 
lho de TV. 

Experimente agora ligar e desligar 
o computador uma, duas ou três ve¬ 
zes. Não fique com medo de danifi¬ 
car o computador com esse procedi¬ 
mento: ele é feito para suportar bem 
essas operações. Inicialmente não va¬ 
mos usar o gravador cassete, por is¬ 
so não é necessário aprender agora 
como ele é ligado ao computador. 

A primeira coisa que aparece na 
tela da TV, quando você liga o com¬ 
putador, é a letra K, dentro de um 
quadrinho preto, na parte de baixo 
da tela: 



Este quadrinho é chamado de CUR¬ 
SOR. Toda vez que ele aparecer na 
tela, no mesmo lugar, significa que o 
computador está pronto para aceitar 
suas ordens ou comandos, em lingua¬ 
gem BASIC. 


1) As teclas com letras e números 
têm a mesma disposição que as de 
uma máquina de escrever comum: 
O, W, E, R, T, Y, etc... Letras, algaris¬ 
mos ou sinais de pontuação estão es¬ 
critos numa mesma tecla. 

Ao conjunto de todas as letras e si¬ 
nais gravados nas teclas chamamos 
de CARACTERES DE TEXTO. 

2) Em cada tecla existem vários sím¬ 
bolos ou palavras, que são chama¬ 
dos RÓTULOS DA TECLA. Algumas 
teclas têm apenas 2 símbolos ou pala¬ 
vras, outras têm até 6. Olhe a tecla 
da letra P: 


PRINT 



TAB 


Você pode ver que o símbolo mais 
em cima de todos é PRINT. 

Logo abaixo dele, temos um sinal 
em vermelho: aspas. 

Finalmente, embaixo de todas, ve¬ 
mos a palavra TAB. 

Todos estes símbolos e palavras po¬ 
dem ser introduzidos (informados) ao 
computador, usando-se a mesma te¬ 
cla: a tecla da letra P. 

Mas como o computador sabe qual 
palavra ou símbolo nós vamos intro¬ 
duzir, se a tecla é uma só? 

Isto é muito simples. Vamos experi¬ 
mentar um pouco para você perce¬ 
ber como é feito. 

A postos? Muito bem: 

Pressione a tecla P uma vez. Não 
precisa apertar muito forte. Note que 
se ouve um sinal sonoro fininho quan¬ 
do se aperta a tecla. Ele é chamado 
de bip. 

Quando o computador soar o bip, 
quer dizer que ele aceitou*aquilo que 
você quis transmitir a ele, ao pressio¬ 
nar a tecla. 

Olhe para a tecla agora: 

Veja como na parte de baixo apare¬ 
ceu a palavra PRINT. O cursor agora 
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foi deslocado para depois da palavra 
PRINT na tela, e ainda é um quadra¬ 
dinho preto. 

Mas note que agora a letra dentro 
dele é [D 

ESTA*É A PRIMEIRA FUNÇÃO DA 
TECLA: 

Quando o cursor na tela tem a le¬ 
tra K dentro, ao pressionarmos a te¬ 
cla, a palavra ou símbolo que estiver 
bem em cima das outras é informada 
ao computador. Esta palavra é uma 
instrução ou comando ao computa¬ 
dor, na linguagem BASIC. 


n 


l^PRINT [D 

I 

_ 


Estamos dando ao computador 
uma ordem: ESCREVA. 

Mas escrever o quê? Precisamos 
dar a ele alguma outra informação. 

Pressione agora a tecla onde está 
o número 3. 

Veja o que ocorreu: 


r 


^PRINT 3 [L] 



O algarismo 3 apareceu na tela, 
depois da palavra PRINT e um espa¬ 
ço em branco. O cursor mudou de no¬ 
vo para um lugar logo após o núme¬ 
ro 3, e ainda tem a letra L dentro. 

Por isso que ele se chama CUR¬ 
SOR: ele mostra exatamente o ponto 
onde vai ser colocada mais uma ou¬ 
tra informação, se você pressionar 
uma tecla qualquer. 

ESTA É A SEGUNDA FUNÇÃO DA 
TECLA: 

Quando o cursor na tela está com 
a letra L dentro, ao pressionarmos 
uma tecla, a letra ou número marca¬ 
do são informados ao computador. 

Agora pressione a tecla SHIFT, e 
pressione ao mesmo tempo a tecla K 
(podem existir duas teclas marcadas 
SHIFT: uma de cada lado do teclado, 
na fileira de baixo). 

Veja como está a tela agora: 



Apareceu o sinal + (mais), logo de¬ 
pois do número 3, certo? Note que o 
cursor mudou de novo de lugar, indo 
para depois desse sinal de +. 

ESTA É A TERCEIRA FUNÇÃO DA 
TECLA: 

Quando o cursor na tela tem a le¬ 
tra L dentro, ao pressionarmos uma 
tecla, ao mesmo tempo que a letra 
SHIFT, a palavra, ou símbolo, locali¬ 
zada em segundo lugar (em verme¬ 
lho) é informada ao computador. Es¬ 
ta palavra também é um comando 
ou instrução em BASIC, mas, depen¬ 
dendo da tecla pode ser também um 
sinal qualquer. 

Neste caso, o sinal + indica ao 
computador uma operação matemáti¬ 
ca: a soma. 

Agora pressione a tecla marcada 4: 


PRINT 3 + 4 I L I 


Na tela apareceu o número 4, logo 
depois do sinal de soma. 

Estamos dando uma ordem ao com¬ 
putador: 

PRINT 3 + 4 

que em português significa: 

ESCREVA O RESULTADO DE 3 MAIS 4 

Só que o computador ainda não 
obedeceu à nossa ordem. Por quê? 

Acontece que ele ainda não sabe 
se nós terminamos de digitar o co¬ 
mando completamente. No exemplo 
que estamos estudando, pode ser 
que eu quisesse somar outros núme¬ 
ros ao 3 ou 4, certo? 

Para informarmos ao computador 
que o nosso comando já está comple¬ 
to e pode ser obedecido, pressiona¬ 
mos a tecla 

NEW UNE. 

Esta tecla significa introduzir , em 
português. Com isso, estamos intro¬ 
duzindo o comando que digitamos 
antes, e que está escrito na parte de 
baixo da tela, no computador. E ele 
poderá obedecer. 

Pressione a tecla NEW LINE; veja o 
que acontece: 



A tela fica toda preta, e depois de 
uma pausa bem pequena (o compu¬ 


tador está calculando o resultado) 
aparece no alto da tela o número 7. 

O número 7 é o resultado da opera¬ 
ção 3 + 4, efetuada pelo computa¬ 
dor, e ele é escrito na tela com o co¬ 
mando que você introduziu pelo te¬ 
clado: PRINT. 

Na parte de baixo aparecem os nú¬ 
meros 0/0. 

Isto significa que o computador 
não achou nenhum erro no comando 
que você introduziu. Isso às vezes po¬ 
de acontecer! 

Mais tarde vamos explicar direiti- 
nho o que significa isso. 

Se você digitou errado alguma coi¬ 
sa na tela, e não sabe como apagá- 
la, pode desligar o computador. Tor¬ 
ne a ligá-lo após alguns segundos, e 
comece tudo de novo. 

Não se preocupe que isso não vai 
prejudicar o computador, nem mu¬ 
dar os ajustes já feitos na TV. 

Após terminarmos o último exercí¬ 
cio a tela estava assim: 



Para voltar novamente o cursor K 
à tela, pressione a tecla NEW LINE: 



O computador está pronto para 
aceitar outros comandos. 


Resumo 

Até agora vimos que existem dois ti- 

Ê s de cursores: B e E 

indica que o computador aceitará 
uma ordem ou comando, quando for 
pressionada uma tecla. 

A instrução ou comando são pala¬ 
vras da linguagem BASIC, marcadas 
na parte superior do teclado, acima de 
cada tecla. 

Exemplos de instruções em BASIC: 
EDIT STOP 

PRINT CLS 

Localize cada uma destas palavras 
no teclado. 

Se a palavra desejada estiver escrita 
em vermelho, a tecla SHIFT deverá ser 

S ressionada ao mesmo tempo. 

2 indica que o computador aceitará 
uma letra, número ou sinal marcados 
em vermelho, a tecla SHIFT deverá ser 
pressionada ao mesmo tempo. 




















omo corrigir 
erros de 
digitação 


Os erros que surgirem durante a di¬ 
gitação de uma linha podem ser cor¬ 
rigidos antes que pressionemos a te¬ 
cla NEW UNE. 

Para isso, usamos a tecla sobre a 
qual está escrito RUBOUT, no canto 
superior direito do teclado. RUBOUT 
quer dizer CANCELAR, em portu¬ 
guês. 

Para usar a tecla RUBOUT, deve¬ 
mos pressionar ao mesmo tempo a te¬ 
cla SHIFT, e a tecla 0 (zero). Note que 
a palavra RUBOUT está marcada em 
vermelho acima da tecla com o nú¬ 
mero 0. Por isso temos que usar a te¬ 
cla SHIFT. 

Cuidado! Se você esquecer de 
apertar a tecla SHIFT, fará aparecer 
na tela o número 0, ao invés de can¬ 
celar. 

Vamos seguir um exemplo: 

Vamos supor que você quer digitar 
o seguinte comando: 

PRINT 3 + 25 

Mas errou, e digitou: 

PRINT 4 + 25 

Introduza esse comando pelo te¬ 
clado: 

O cursor na tela está marcado B 

Pressione a tecla P: aparece PRINT 
e o cursor muda para [T]. 

Pressione a tecla 4: aparece o nú¬ 
mero 4. 

Pressione a tecla K juntamente 
com SHIFT: aparece o sinal + 

Pressione as teclas 2 e 5: aparece o 
número 25. 

Agora, queremos corrigir o núme¬ 
ro 4, mudando-o para 3. 

Existem duas maneiras de se fazer 
isso: 

PRIMEIRA MANEIRA DE CORRIGIR 
UMA UNHA 



Pressione a tecla SHIFT, e a mante¬ 
nha abaixada com o dedo. 


Agora pressione a tecla RUBOUT 
uma vez. Veja que o cursor L volta pa¬ 
ra trás, e apaga da tela o número 5. 



Repita a operação (SHIFT e RU¬ 
BOUT) por mais três vezes. 

Veja que fica na tela somente o co¬ 
mando PRINT que você tinha digitado: 



Depois que todos os números esti¬ 
verem apagados, pressione nova¬ 
mente as teclas 3, +, 2 e 5. Veja que 
o comando ficou como você queria: 



Pressione a tecla NEW UNE para 
ver o resultado. 

SEGUNDA MANEIRA DE CORRIGIR 

Às vezes, quando o comando é 
muito comprido, não vale a pena 
apagar tudo para corrigir alguma coi¬ 
sa bem no começo. 

É possível voltar até onde estava o 
erro, sem ser preciso apagar. 

Observe o teclado de seu TK-85. 

A tecla 5 tem, na parte de cima, uma 
flechinha virada para a esquerda. 

E a tecla 8 tem uma flechinha vira¬ 
da para a direita. 

<-n —*n 

m e 

Com essas duas teclas, podemos 
mover o cursor para trás e para dian¬ 
te, na linha de comando, para corri¬ 
gir o que quisermos. 


TESTE 

2.1. O que devemos fazer para ligar 
um microcomputador? 

2.2. Desenhe aqui o que aparece na 
tela, quando o computador é liga¬ 
do: 



2.3. Defina com suas próprias pala¬ 
vras: 

CURSOR: 

CARACTERES DE TEXTO: 

RÓTULOS DA TECLA: 

BIP: 

2.4. O que significa para o computa¬ 
dor, quando o cursor está com as le¬ 
tras: 

00 : 

E: 

2.5. Cite as três coisas para que ser¬ 
ve uma tecla do microcomputador 
que você já conhece: 

2.6. Sem usar o computador, escre¬ 
va qual será o resultado dos seguin¬ 
tes comandos: 

a. PRINT 345 - 12 + 8 

b. PRINT 968 - 234 + 2 

2.7. Que tecla devemos pressionar 
para aparecer de novo a tela com o 
cursor K, depois de ter sido mostra¬ 
do o resultado de um comando 
PRINT? 

2.8. Que tecla devemos pressionar 
quando queremos introduzir no com¬ 
putador algum caracter ou palavra 
marcado em vermelho na tecla? 

2.9. Que tecla devemos pressionar 
para que o computador realize o cál¬ 
culo dentro de um comando PRINT? 

2.10. Faça um desenho mostrando 
como se ligam entre si as partes de 
um computador (vídeo e teclado): 
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Vamos seguir um exemplo para 
ver como ambas funcionam. 

Suponhamos que você queira es¬ 
crever este comando: 

PRINT 65 4* 47 

E errou, escrevendo: 

PRINT 25 4 47 

Escreva este comando no computa¬ 
dor: 



Veja como o cursor fica no final da 
linha de comando. Para apagar ape¬ 
nas o número 2 (errado), sem apagar 
os outros, usamos a flechinha volta¬ 
da para trás : 

Aperte SHIFT e a tecla 5 ao mesmo 
tempo: 


1 PRINT 25 + 4 [TI 7 


Veja como o cursor voltou a ficar 
entre os números 4 e 7: 

Agora torne a pressionar as teclas 
5 e SHIFT mais 3 vezes. 

Cuidado para não esquecer de 
pressionar SHIFT, que fará aparecer 
o número 5 na linha! 



Agora o cursor está exatamente de¬ 
pois do número que queremos corri¬ 
gir. Pode pressionar a tecla RUBOUT 
(não se esqueça que isto se faz pres¬ 
sionando ao mesmo tempo as teclas 
SHIFT e 0): 




I PRINT □ 5 + 47 



Para introduzir o número correto, 
basta pressionar a tecla com o núme¬ 
ro 6. Veja como o 6 entra perfeitamen¬ 
te: 



Se agora você quiser ver o resulta¬ 
do do comando, pressione a tecla 
NEW LINE. 

A TECLA NEW UNE PODE SER 
PRESSIONADA COM O CURSOR EM 
QUALQUER POSIÇÃO. 

Entendido? 

Se você apertou a tecla com a fle¬ 
chinha <— muitas vezes, pode aconte¬ 
cer que o cursor vá para o começo 
da linha: 



Para fazê-lo voltar até a posição 
correta, pode usar a tecla com a fle¬ 
chinha para a direita —que é usa¬ 
da pressionando-se ao mesmo tempo 
as teclas SHIFT e 8: 



Introduza no computador as linhas de co¬ 
mando abaixo, uma de cada vez, e pressio¬ 
ne a tecla NEW LINE para ver o resultado. 

Olhe bem para a linha antes de pressio¬ 
nar a tecla NEW LINE. 

1) PRINT 43 4 65 

2) PRINT 235 - 123 

3) PRINT 49 4 22 - 3 

4) PRINT 894 - 425 4 11 

5) PRINT 123 4 456 4 789 - 56 

6) PRINT 11 4 45 - 234 - 123 

7) PRINT 9 4 12 - 78 

8) Introduza um comando para realizar a so¬ 
ma dos números 12, 24 e 33 

9) Se o Zico já fez 765 gols, quantos faltam 
para completar 1000? 

10) Introduza um comando para somar as 
idades de três amigos seus. 

Agora introduza as linhas de comando 
abaixo, uma de cada vez. Antes de pressio¬ 
nar a tecla NEW LINE, corrija a linha de co¬ 
mando, usando as teclas ^ e RUBOUT, 
de modo a ficar igual à segunda linha. De¬ 
pois pressione a tecla NEW LINE e anote o 
resultado: 



11) PRINT 957 + 125 PRINT 957 + 124 



[PRINT 2 E 5447 


Note que a palavra PRINT é "pula¬ 
da" de uma vez só, quando se aperta 
uma das teclas com flechinhas. 

Experimente apagar com RUBOUT 
a palavra PRINT. Note que ela tam¬ 
bém é apagada de uma só vez. 



12) PRINT 23 - 
13 + 45 


13) PRINT 462 + 
234 - 12 


PRINT 23 + 
13 + 45 



PRINT 562 - 
234 t 12 


14) PRINT 123 - 
1 + 85 

15) POKE 43 + 
12 - 55 


PRINT 1213 + 
12 + 85 

PRINT 43 + 12 

- 55 


16) POKE 23412 + 
998756 

PRINT 341 + 998 

17) PRINT 1213 - 
2342 

PRINT 1213 + 

345 - 2342 

18) PRINT 908J478 

PRINT 808 + 478 

19) PRINT 1.234 - 
45.5 

PRINT 12.34 - 
45.5 

20) PRINT P 23 

PRINT 23 
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rros que o 

computador 

acusa 


O computador não aceita coman¬ 
dos que estejam escritos de forma er¬ 
rada para ele. Se isso acontecer, ele 
mostra na tela o erro, e espera que 
você o corrija. 

Introduza no computador a seguin¬ 
te linha: 

PRINT 23 + + 34 

A tela fica assim: 


regras dessa linguagem. Felizmente 
ele indica o erro, para que possamos 
corrigi-lo. 

Enquanto você não corrigir esse er¬ 
ro, o computador não obedece ao co¬ 
mando. 

Experimente pressionar NEW UNE 
de novo. Note que o computador in¬ 
siste na mesma mensagem e não 
obedece a um comando errado. 

Para corrigir o comando errado, 
use as teclas <— e RUBOUT, exata¬ 
mente como você treinou antes. 

Note que, ao pressionar a tecla <— 
para voltar ao local do erro, a mensa¬ 
gem 'S desaparece. O computador re¬ 
conheceu que você está querendo 
corrigir a linha, e retirou a mensa¬ 
gem para não atrapalhar. 


T 8 $ T IS 

3.1. Qual é a tecla usada para apagar al¬ 
guma letra ou número da tela? 

ATENÇÃO! Nos exercícios seguintes não 
use o computador! 

3.2. Suponhamos que foi introduzida es¬ 
ta linha no computador: 

PRINT 123 + 456 

a. Escreva como ficará a linha se eu 
pressionar RUBOUT três vezes: 

b. E, agora, se em seguida eu pressio¬ 
nar as teclas 2, 3 e 5. 

c. E, agora, se eu pressionar a tecla 
NEW LINE: 



Observe que até agora o computa¬ 
dor ainda não notou nenhum erro. 

Pressione agora a tecla NEW LINE, 
para que o computador realize o cál¬ 
culo. 

Note o que aconteceu: 



Agora apague o segundo sinal + 
com RUBOUT: 


1 ' 

- 

PRINT 23 + E34 

J 


E pressione NEW LINE para ver o 
resultado: 


ri7 


3.3. Suponhamos que foi introduzida es¬ 
ta linha no computador: 

PRINT 325 + 459 

a. Escreva como ficará a linha, se eu 
pressionar a tecla <— duas vezes: 

b. E, agora, se eu pressionar a tecla <— 
mais uma vez: 

c. E, agora, se eu pressionar a tecla — > 
por duas vezes, depois a tecla RUBOUT 
uma vez, e depois o número 5: 

d. E como ficará o resultado, se agora 
eu pressionar NEW LINE: 



3.4. Diga o que está errado nos seguin¬ 
tes comandos: 

a. PRINT 345 + + 825 

b. PRINT 34J902 

c. PRINT PRINT 345 


Apareceu outro quadradinho, se¬ 
melhante ao cursor, mas com a letra 
S dentro. 

Mesmo sendo parecido, o S não é 
um cursor. Ele é uma mensagem de 
erro, escrita pelo computador para 
avisar que você escreveu algo erra¬ 
do no comando (no caso, dois sinais 
+ + em seguida). 

Note que o S fica exatamente de¬ 
pois do primeiro sinal. Isso quer dizer 
que o computador indica que o se¬ 
gundo sinal está errado (está sobran¬ 
do). 

0 ERRO SÓ FOI NOTADO PELO 
COMPUTADOR AO SE PRESSIONAR 
NEW UNE 


0/0 

L— 


Agora o computador aceitou a li¬ 
nha de comando. 


Introduza as linhas de comando 
abaixo, uma de cada vez. Note que ca¬ 
da uma delas tem um erro. Anote o er¬ 
ro que você acha que a linha tem, an¬ 
tes de introduzi-la no computador. 


3.5. O que significa a mensagem S? 

3.6. O que acontece com a mensagem S, 
quando eu pressiono RUBOUT, < = ou => 

3.7. Que tecla temos que pressionar para 
o computador verificar se existe algum 
erro na linha de comando? 


Agora pressione a tecla NEW LINE. 
Veja onde aparece a mensagem S. 
Corrija, e pressione NEW LINE de no¬ 
vo. Anote o resultado. 



ffli 


cy 

ha 


S indica um erro de sintaxe. Sinta- Errado Qual é o erro? Resultado * 

xe quer dizer forma correta de escre¬ 
ver um comando para o computador. 1) PRINT 45 -I- - 25 - - 

A linguagem BASIC é muito sim¬ 
ples, mas o computador não vai en- 2) PRINT 23-2 - - 

tender nada que for escrito fora das 
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1^1 COMPUTADOR 

S Céuma 

C C CALCULADORA! 


Como você viu, usando a instrução 
PRINT, nós podemos fazer contas 
com o computador. Até agora, só 
aprendemos a fazer somas e subtra¬ 
ções bem simples, como 
PRINT 34 + 25 

Agora vamos aprender como fazer 
contas bem mais complicadas. Você 
vai ver que o seu microcomputador 
pode achar o resultado de sentenças 
ou expressões matemáticas, com to¬ 
dos os tipos de operações (inclusive 
multiplicação e divisão). 

PARA USAR O COMPUTADOR 
COMO UMA CALCULADORA, PRE¬ 
CISAMOS SEMPRE COLOCAR UM 
COMANDO PRINT ANTES DA EX¬ 
PRESSÃO MATEMÁTICA. 

Esse modo de operação é chama¬ 
do de MODO DIRETO. 

M ultiplicação 

e Divisão 


Vai dar o resultado: 


[47666667 1 


0/0 


Por que o computador não aceita 
os sinais x e -5-, como na Matemáti¬ 
ca? Você mesmo pode imaginar por 
quê: 

O sinal de vezes (x) pode ser con¬ 
fundido com a letra x 

O sinal de dividir (-0 não existe no 

teclado. 

Mas por que não posso usar o sinal 
: para a divisão? A resposta é igual à 
anterior: o computador o confundiria 
com dois pontos. Dois pontos e a le¬ 
tra x significam outras coisas para o 
computador, por isso não podem ser 
usados. Certo? 



Vamos íazer alguns exercícios de 
multiplicação e divisão no computa¬ 
dor, usando a instrução PRINT. Po¬ 
nha a resposta ao lado, e também o 
resultado da expressão (use o com¬ 
putador!): 



ombinando 

operações 


A linguagem BASIC consegue fazer 
contas contendo várias operações 
matemáticas misturadas: somas, sul> 
trações, multiplicações e divisões. E 
só colocar na instrução PRINT os nú¬ 
meros e operações que desejarmos, 
exatamente como em uma fórmula. 


Por exemplo: 


3 + 5/4 


Uma combinação como esta é cha¬ 
mada de expressão aritmética, por¬ 
que tem apenas números e opera¬ 
ções aritméticas. Existem outros tipos 
de expressões, que você irá apren¬ 
der depois. . 

Vamos resolver um probleminna, 

como exemplo: 


Paulo tem 25 moedas de 5 cruzei¬ 
ros e 14 notas de 200 cruzeiros. Qual 
o total de dinheiro que ele tem? 


Você já aprendeu que usamos os si¬ 
nais + (mais) e ~ (menos), para orde¬ 
nar ao computador que faça uma so¬ 
ma ou uma subtração. 

Isso quer dizer que o computador 
usa os mesmos sinais que aprende¬ 


mos em Matemática. 

Mas, para a multiplicação e a divi¬ 
são, a operação é um pouco diferen¬ 
te na linguagem BASIC: 

A MULTIPLICAÇÃO USA O SINAL 
* EM VEZ DE X 

A DIVISÃO USA O SINAL / EM VEZ 
DE + 


Por exemplo: 

Quanto é 34 multiplicado por 5? 
Digite a linha PRINT 34 * 5 no tecla¬ 
do, e aperte a tecla NEW LINE: 

Vai dar o resultado: 170 
Outro exemplo: 

Quanto é 14 dividido por 3? 

Digite a linha PRINT 14/3 no tecla¬ 
do, e aperte a tecla NEW LINE: 



1. 2.5 x 4.8 

2. 1234 x 0.345 x 2 

3. 900 x 34 

4. 894 x 0.888 

5. 345:898 

6. 0.234: 234 

7. 899 :9 
8 1:3 

3 . Uma hora tem 360 segundos. 
Quantos segundos tem um dia? 
Resposta: 

10. Meu pai me dá CrS 30 000,00 de 
mesada. Quanto eu ganho por dia? 
Resposta: 

11. Invente cinco exercícios usando 
divisão ou multiplicação de núme¬ 
ros: 


a. 


b. 


c. 


d. 


e. 


SOLUÇÃO 

Como em todo problema matemáti¬ 
co, primeiro vamos escrever a senten¬ 
ça que dá a solução: 

total = 25 x 0.50 + 14 x 200 

A instrução em BASIC para o com¬ 
putador fica assim: 

PRINT 25 *0.50 + 14 * 200 

Coloque no computador e veja o re¬ 
sultado. Qual foi? 


























OMOO 

COMPUTADOR 
FEZ ESSA CONTA? 


Observe que, para acertar nesta con¬ 
ta, precisamos primeiro fazer as mul¬ 
tiplicações: 

25x0.50 + 14x200 

1.25 + 2800 

2801.25 

Ou seja,_ existe uma ORDEM DE 
REALIZAÇÃO das operações: a multi¬ 
plicação é sempre realizada antes de 
uma soma ou subtração. Se tivésse¬ 
mos somado antes, o resultado sairia 
errado. 

Como em Matemática, a lingua¬ 
gem BASIC também faz contas se¬ 
guindo uma certa ordem (chamada 
ORDEM DE PRECEDÊNCIA, porque 
algumas operações devem preceder 
outras, ou seja, serem feitas antes). 
Preste bem atenção nessas regras: 

1. AS DIVISÕES SÃO SEMPRE FEI¬ 
TAS EM PRIMEIRO LUGAR 

2. AS MULTIPLICAÇÕES SÃO REALI¬ 
ZADAS DEPOIS DAS DIVISÕES 

3. AS SOMAS E SUBTRAÇÕES SÃO 
FEITAS EM ÚLTIMO LUGAR 

Vamos fazer algumas contas no 
computador, usando a instrução 
PRINT: 

1. A altura do King-Kong foi medi¬ 
da (depois de morto), sendo igual a 
37 pés e 8 polegadas. Quantas pole¬ 
gadas ele tinha de altura? 

SOLUÇÃO: 

Um pé (no sistema norte-america¬ 
no de medidas) tem 12 polegadas 
Altura = 12 x 37 + 8 
PRINT 12 * 37 + 8 

Coloque no computador e anote o re¬ 
sultado. Qual é a operação que o 
computador irá realizar primeiro? 
Resposta: 

2. O comprimento do monstro de 
Loch Ness é de 50 pés e 5 polegadas. 
Quantos centímetros ele mede? 
SOLUÇÃO: 

Veja agora que eu tenho que fazer 
uma expressão mais difícil. Primeiro 
eu multiplico 50 pés por 12 e somo 5, 
para ter o resultado em polegadas. 
Depois multiplico tudo por 2.54, que 
é o valor de uma polegada em centí¬ 
metros. 


Se eu fizer: 

PRINT 50 * 12 + 5 *2.54 
vai dar errado, pois primeiro o compu¬ 
tador vai realizar a multiplicação de 5 
por 2.54. Para evitar isso, posso usar 
parênteses, como na Matemática: 

PRINT (50 * 12 + 5) * 2.54 

Agora vai dar certo, pois primeiro 
o computador faz as contas dentro 
dos parênteses. Depois multiplica o 
resultado por 2.54. 

Tente fazer no computador este 
exercício. 

Resposta: 

3. O jogador Zico tinha 300 000 dó¬ 
lares no banco. Depois recebeu co¬ 
mo luvas metade de 456 784 dólares, 
menos o imposto de 40 000 dólares. 
Quantos cruzeiros ele terá no total? 
(Imagine que 1 dólar valia, na épo¬ 
ca, 556 cruzeiros.) 

SOLUÇÃO: 

O total de dólares no banco será: 
PRINT 300 000 + (456 784 - 40 000)/2 
ATENÇÃO: Como você já deve ter 
notado, não se usa nas calculadoras 
o ponto para separar centenas, mi¬ 
lhares etc., quando se coloca um nú¬ 
mero no computador. O ponto é usa¬ 
do pela linguagem BASIÕ como uma 
vírgula (para separar a parte inteira 
da parte fracionária de um número). 
Esse é o sistema usado nos Estados 
Unidos, onde a linguagem BASIC foi 
inventada. 

Para obter em cruzeiros, multiplica¬ 
mos tudo por 556. Para formar ape¬ 
nas uma expressão, temos que usar 
outros parênteses: 

PRINT (300 000 + (456 784 - 40 000)/2) 
*556 

Coloque no computador e veja 
qual é o resultado. 

Resposta: 


Agora você aprendeu uma coisa 
importante: 

A EXPRESSÃO MATEMÁTICA PO¬ 
DE CONTER PARÊNTESES DENTRO 
DE PARÊNTESES 

e parênteses dentro de parênteses 
dentro de parênteses... quantos se 
quiser usar. 

Está vendo como é parecido com o 
uso de chaves e colchetes, que você 
aprendeu em álgebra? 

Só há uma diferença: o computa¬ 
dor usa sempre parênteses. A lingua¬ 
gem BASIC não aceita colchetes ou 
chaves. 

Por isso algumas expressões po¬ 
dem ficar muito confusas, e você po¬ 
de esquecer de colocar algum parên¬ 
tese, ou colocá-lo errado. 

Lembre-se da seguinte regra: 

O NÚMERO DE PARÊNTESES À DI¬ 
REITA DEVE SER IGUAL AO DE PA- 
RÊNTESES À ESQUERDA. 


Depois de escrever a expressão, 
conte o número de parênteses. Se 
eles não forem pares, há um erro em 
algum lugar. 




1. Escreva a instrução PRINT para 
as expressões matemáticas abaixo 
(depois coloque no computador e 
anote o resultado): 

a. 4 787 : 2 + 455 x 855 

b. 12 + 34 + 45 x 0.5 

c. 34.2 + 87 : 33 

d. 35.4 + 75 - 42 

89 - 68 

e. (12.8-5.6 x 45) 

2 

f. (35-7) — (45-8) x 1.7 

2 2 


2. Assinale o que está errado nas ex¬ 
pressões abaixo. Depois coloque no 
computador e anote o resultado. 

a. PRINT 45 * (63 - 12 

b. PRINT 83 + 45) / 22 

c. PRINT (23.45 + 34.2/8 - 3)) 

d. PRINT 34.5 * 12 - 3,44 

e. PRINT (33 - [22 * 11 ])/2 

f. 895 - 43.3 * 12 


3. Um carro tinha 25.6 litros de com¬ 
bustível no tanque. Depois de uma 
viagem, ficou apenas com 17.3. Se o 
litro de gasolina custasse 1 688 cru¬ 
zeiros, quanto custaria a gasolina 
gasta na viagem? 

Resposta: PRINT 
Resultado: 

4. O Palmeiras fez 25 gols no campeo¬ 
nato e levou 13 gols. Cada gol a fa¬ 
vor vale 5 pontos positivos, cada gol 
contra vale 7 pontos negativos. Com 
quantos pontos ficou o Palmeiras? 
Resposta: PRINT 

Resultado: 

5. Quantos segundos tem um ano? 
Resposta: PRINT 

Resultado: 

6. Qual é a média das notas 5.6, 8.2 
e 7.5? 

Resposta: PRINT 
Resultado: 



















Nem sempre o seu computador vai 
mostrar a resposta do modo como vo¬ 
cê quer. Preste bem atenção nos 
exemplos seguintes e entenderá por 
quê. 

Experimente colocar no computa¬ 
dor a seguinte expressão: 

PRINT 2/3 

Veja como ficou a resposta: 



Você deve saber que o resultado 
desta conta tem um número infinito 
de 6 depois do ponto: 

0.66666666666666666666666... etc. 

O computador mostrou apenas 6 
casas decimais. Além disso, ele colo¬ 
cou um 7 na última casa decimal. Is¬ 
to é feito sempre que a sétima casa 
for igual ou maior do que 5, e se cha¬ 
ma ARREDONDAMENTO. 

Suponha que o resultado de uma 
operação é 1.3411123443. O que o 
computador mostrará na tela? 

Resposta: 

Agora suponha que o resultado é 
123.5555. O que o computador mos¬ 
trará na tela? 

Resposta: 

O computador sempre vai mostrar 
um máximo de 6 algarismos. A não 
ser que haja menos de 6, quando 
mostrará apenas esses. 

Por exemplo: digite a instrução: 

. PRINT 2/4 

O resultado mostrado pelo compu¬ 
tador na tela é: 

0.5 

Note que ele não mostra: 

0.500000 

Todos os zeros depois do 5 não são 
mostrados. 



unções 

matemáticas 


Além das quatro operações aritmé¬ 
ticas (soma, subtração, divisão e mul¬ 
tiplicação), o computador consegue 
fazer outros tipos de cálculos mais 
complicados. 

Por exemplo, se quisermos que o 
computador extraia uma raiz quadra¬ 
da de um número qualquer, ele con¬ 
segue fazer isto através da lingua¬ 
gem BASIC. 


Para isso usamos uma instrução es¬ 
pecial, chamada FUNÇÃO. 

No nosso exemplo, a função que 
queremos calcular é a raiz quadra¬ 
da. Em BASIC, pedimos ao computa¬ 
dor para calcular a raiz quadrada 
por meio da abreviação SOR (que 
vem do termo SQUARE ROOT, que 
quer dizer raiz quadrada, em inglês). 
PRINT SQR 16 

Note que devo colocar as coisas 
em uma certa ordem, na instrução: 

PRINT é o comando que diz ao computa¬ 
dor: mostre o cálculo feito. 

SQR indica ao computador que o cálcu¬ 
lo que eu quero fazer é uma raiz quadra¬ 
da. Este é o nome da função. 

16 diz ao computador qual é o número 
do qual vai ser tirada a raiz quadrada. 
Ele é chamado argumento da função. 

Experimente digitar essa linha no 
computador. 

1. Para introduzir a instrução 
PRINT, pressione a tecla P: 


PRINT DD 


2. Para introduzir a função SQR, 
veja que ela está indicada em cima 
da tecla H. Mas o cursor na tela é o 
L. Isto quer dizer que, se apertarmos 
a tecla H, aparecerá a letra H, lem¬ 
bra-se? Para aparecer a função SQR, 
devemos antes pressionar a tecla 
SHIFT, bem como a tecla NEW UNE. 

Pressione e veja o que acontece: 



i PRINT E j 


O cursor mudou para F. 

Isto quer dizer que, se eu apertar a 
tecla H, aparecerá o que está indica¬ 
do logo acima da tecla (a função 
SQR), ç não a letra H. 

Toda vez que eu quiser introduzir 
no computador uma função, tenho 
que transformar o cursor na tela pa¬ 
ra F. 

Isto é feito ordenando-se uma 
FUNCTION, que se consegue pressio¬ 
nando-se SHIFT e NEW UNE, ao mes¬ 
mo tempo (note que FUNCTION está 
escrito em vermelho, acima da tecla 
NEW UNE). 

Pressione agora a tecla H, e veja o 
que acontece: 


I PRINT SQR E 


Note que o cursor voltou a ser L no¬ 
vamente. 

Isto quer dizer que o computador 
está esperando que você introduza o 
argumento (número): 


PRINT SQR 16 □ 


Pressione NEW UNE e veja o resul¬ 
tado do cálculo: 



Experimente realizar no computa¬ 
dor os exercícios abaixo. Escreva a 
instrução PRINT e coloque o resulta¬ 
do ao lado: 

a. 25 

b. 10 

c. 100 

d. 3.14159 

e. 2 

Uma função matemática também 
pode ser colocada dentro de uma ex¬ 
pressão aritmética: 

PRINT 25 + SQR 19 

O computador vai calcular primei¬ 
ro a função, antes de realizar a so¬ 
ma. Isso quer dizer que calcular uma 
função vem antes, na ordem de pre¬ 
cedência. 

Coloque no computador e veja o re¬ 
sultado. 

Outro exemplo: 

PRINT SQR 25 + SQR 9 

O resultado é 8, porque o computa¬ 
dor calcula primeiro o resultado das 
duas funções, depois soma os resulta¬ 
dos. 

Agora, se eu fizer: 

PRINT SQR (25 +11) 

O resultado será 6, certo? 

O uso dos parênteses forçou o com¬ 
putador a fazer primeiro a conta 25 + 
11 e só depois tirar a raiz quadrada. 
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Para treinar, vamos fazer o seguin¬ 
te exercício: 

Elenice atravessou um campo de 
futebol com 100 m de comprimento 
por 40 m de largura (veja o desenho 
ao lado). Quantos metros ela teve 
que andar? 

SOLUÇÃO: 

O problema é de geometria. Um 
triângulo como o da figura tem a se¬ 
guinte expressão para calcular a hi¬ 
potenusa a partir dos catetos (teore¬ 
ma de Pitágoras, lembra-se?): 

A 2 = B 2 + C 2 

Então, a instrução PRINT para re¬ 
solver o problema é simplesmente: 


PRINT SQR (B*B + OC) 

Veja que B*B é a mesma coisa do 
que B 2 . 

Existe também uma outra manei¬ 
ra de representar um expoente em 
BASIC: é através do sinal ** (dois as¬ 
teriscos). Ele está em cima da letra 
H, e, para conseguir colocá-lo na te¬ 
la, basta apertar a tecla SHIFT junta¬ 
mente com a tecla H. 

Tente: 

PRINT SQR (B**2 + C**2) 

Cuidado para não apertar a tecla 
* duas vezes: na tela vai aparecer a 
mesma coisa, mas o computador 
não vai aceitar. Tem que apertar a 
tecla que dá dois asteriscos de uma 
vez. OK? 


Escreva aqui embaixo o resultado: 

Resposta: 

A exponenciação (um número ele¬ 
vado a outro) é uma operação com 
ordem de precedência mais alta do 
que a divisão. Ou seja: 

SE HOUVER UMA EXPONENCIA- 
ÇÃO, ELA SERÁ CALCULADA EM 
PRIMEIRO LUGAR 

Por exemplo: 

PRINT 2 + 3**2/3 

Dará o resultado 5, porque o compu¬ 
tador primeiro calculará 3**2 (que é 
9), depois dividirá o 9 por 3 (pois a 
divisão é a que vem depois). Aí ele 
fará a soma. 

Existem muitas outras funções no 
BASIC, além da raiz quadrada. De¬ 
pois aprenderemos outras. 


TE STB 


4.1. Escreva os símbolos usados em 
BASIC para as seguintes operações 
aritméticas: 

a. adição 

b. subtração 

c. multiplicação 

d. divisão 

4.2. Por que não são usados os sím¬ 
bolos x e : para multiplicação e di¬ 
visão em BASIC? 

Resposta: 

4.3. Numere as operações aritméti¬ 
cas, de acordo com a ordem em que 
são efetuadas, dentro de uma ex¬ 
pressão em BASIC: 

Subtração 

Multiplicação 

Divisão 

Adição 

4.4. Coloque as expressões abaixo 
em forma de PRINT: 

a. 3x2 + 2 

b. 3 x (2 + 2) 

c. 4x5-9 

d. 3:2 

e. (5 + 4) x (5 : 9) - 1 

f. (5 : 9) x (3 + 2) - (1 : 2) 

4.5. Faça os seguintes exercícios uti¬ 
lizando o comando PRINT. Primeiro 
escreva a linha de instrução formu¬ 
lando o problema, depois coloque 
no computador e anote o resultado. 


a. Qual é a área de um triângulo 
de base 120 e altura 25? (Dica: 
ÁREA = BASE X ALTURA.) 

Resposta: 

b. Qual é a soma das áreas de um 
triângulo de base 32 e altura 44 e 
um quadrado de lado 24? (Utilize 
apenas uma instrução PRINT.) 

Resposta: 

c. Qual é o volume de um cubo 
com 32,8 cm de aresta? 

Resposta: 

d. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 
36 polegadas. Qual é o comprimen¬ 
to do campo em centímetros e em 
metros? (Dica: uma polegada vale 
2,54 cm.) 

Resposta: 

e. Uma motocicleta gastou 25,8 li¬ 
tros de gasolina em uma viagem. 
No começo da viagem o mostrador 
de quilometragem indicava 12346 

e, ao final da viagem, indicava 
13193. De quantos quilômetros por 
litro foi o consumo? 

Resposta: 

f. A circunferência de um círculo é 
dada pela fórmula 2 x tt x R, (R é 
o raio.) Uma bicicleta tem a roda 
com o raio de 35,234 cm. Qual é a 
circunferência da roda? (Dica: a 
constante tt vale 3,14159.) 


Resposta: 

g. Quantas voltas por quilômetro 
dará uma roda de automóvel com 
um diâmetro de 45 cm? 

Resposta: 

h. Em um triângulo retângulo, o 
quadrado da hipotenusa é igual à 
soma dos quadrados dos catetos. 
Supondo que a hipotenusa mede 
29,238 e um dos catetos mede 12,34, 
qual é o valor do outro cateto? 

Resposta: 

4.6. Verifique se os comandos abai¬ 
xo estão corretos. Se não estiverem, 
coloque ao lado a forma correta. De¬ 
pois, digite no computador e escre¬ 
va o resultado ao lado. 

a. PRINT (2 * (3 + 4) - 2 

b. PRINT PRINT 

c. PRINT 84 * 1135-20*4767 

d. PRINT - 3 * - 4 

4.7. Para que servem os parênteses 
em uma expressão matemática em 
BASIC? 

Resposta: 

* 

4.8. O que substitui as‘chaves e col¬ 
chetes de uma expressão matemáti¬ 
ca em BASIC? 

Resposta: 
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AMOS 
PROGRAMAR O 
COMPUTADOR? 


Quando quisermos que o computa¬ 
dor faça algum cálculo e mostre o re¬ 
sultado na tela, usamos o comando 
PRINT. Este comando, junto com a ex¬ 
pressão matemática, funciona como 
uma ordem para o computador. 

Assim, se você escrever no teclado 

esta instrução: 

PRINT 34534 + 12111 
e pressionar a tecla NEW LINE, o 
computador fará a conta e mostrará 
o resultado na tela: 



E SE VOCÊ QUISER FAZER DE NO¬ 
VO A MESMA CONTA NO COMPU¬ 
TADOR? 

Você já sabe a resposta: 

A instrução precisa ser introduzida 
de novo no computador. 

Se você tiver que fazer uma série de 
contas repetidas, isso vai dar muito tra¬ 
balho, porque cada vez você vai ter 
que digitar de novo as instruções. 

Felizmente o computador tem ME¬ 
MÓRIA. , 

E existe um macete para colocar 

na memória dele as instruções que 
quisermos. Depois de termos feito is¬ 
so, ele vai se lembrar das instruções, 
e não vai ser preciso digitá-las de no¬ 
vo toda vez que quisermos repetir os 
cálculos. 

Preste bem atenção: , 

PROGRAMAR O COMPUTADOR E 
COLOCAR INSTRUÇÕES EM SUA 

MEMÓRIA. , 

Você vai aprender a fazer um PrttJ- 

GRAMA. 



m Programa 
em BASIC 


dora, através do MODO DIRETO. 

O computador obedece a instrução 
PRINT que damos a ele, e em segui¬ 
da "esquece" a instrução. 

Fazer com que o computador gra¬ 
ve a instrução em sua memória é a 
coisa mais simples do mundo: , 

BASTA COLOCAR UM NUMERO 
QUALQUER NO COMEÇO DA INS¬ 
TRUÇÃO. 

Siga o exemplo: 

Se quisermos colocar na memória 
a seguinte instrução: 

PRINT 34534 + 12111 
basta digitar (escrever no teclado) da 
seguinte forma: 

1 PRINT 34534 + 12111 

Vamos entender juntos tudo o que 
está contido nessa linha. 


No capítulo 3, vimos que o computa¬ 
dor pode ser usado como uma calcula- 


1_é o número da linha. Pode ser qual¬ 

quer número; 

PRINT — é a instrução, ou comando que 
damos ao computador; 

34534 __ é um dos dados que fazem par¬ 
te da expressão matemática de cálculo; 

+ — é a operação que queremos fazer 
(que, no exemplo, é a de somar); 

12111 — é o outro dado da expressão de 

cálculo. 


Experimente digitar essa linha no 
computador, e apertar a tecla NEW 
UNE: 

Veja o que aconteceu: 



bem. Mas, para obrigá-lo a EXECU¬ 
TAR O PROGRAMA (ou seja, obede¬ 
cer as instruções), eu devo usar um 
novo comando: 

RUN 

e pressionar a tecla NEW UNE. 

RUN, em inglês, quer dizer CORRA! 
Que significa também: RODE O PRO¬ 
GRAMA. Rodar, na gíria das pessoas 
que lidam com computador, quer di¬ 
zer: executar um programa que estiver 
na memória do computador. 

Para introduzir o comando RUN, 
aperta-se a tecla R, quando o cursor 
na tela for K. Note que acima da te¬ 
cla R está escrito RUN. 

Pressione RUN e veja o que acon¬ 


tece: 


o COMPUTADOR NÀO FEZ A 
CONTA! 

Ao invés disso, ele colocou a linha 
que você introduziu lá no topo da tela. 

ISSO QUER DIZER QUE ELE GUAR¬ 
DOU A INSTRUÇÃO NA MEMÓRIA! 

O número 1 significa que essa é a 
primeira instrução que queremos 
que ele obedeça. Depois você vai ver 
que podemos colocar mais instruções 
EM UM MESMO PROGRAMA. 

Note também que a instrução que 
estava digitada na linha de baixo da 
tela desapareceu, como se fosse car¬ 
regada para a parte de cima. 

E apareceu de novo o cursor K. Isso 
quer dizer que o computador está 
pronto para aceitar mais uma ordem. 

E agora? 

Como vamos fazer para obrigar o 
computador a obedecer a instrução 
PRINT? 

Ele guardou na memória, tudo 


1 PRINT 34534 + 12111 


runH] 


E agora aperte a tecla NEW LINE: 



o resultado no cálculo apareceu na 
tela, em cima. 

Na linha de baixo, a mensagem 
0/1 significa: 


0 — não houve nenhum erro no pro¬ 
grama 

1 _o programa parou na linha nume¬ 

ro 1 


Agora que a instrução está na me¬ 
mória do computador (no progra¬ 
ma), podemos pedir para o computa¬ 
dor executá-la novamente quantas 
vezes quisermos. Basta digitar RUN 
novamente. Experimente! 

Qual é o resultado? 

Pressione agora a tecla NEW LINia 
de novo. Veja o que acontece: 

O programa apareceu de novo no 

topo da tela. ■ , 

Isto quer dizer que ele ainda esta 
na memória. Se ele está lá ainda, 
quer dizer que eu posso executá-lo 
novamente com outro comande 
RUN. 

O cursor K também voltou a apare¬ 
cer na parte de baixo da tela. 
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azendo 

Programas 


46645 

552 


Outra vantagem de colocar as ins¬ 
truções em um programa é poder 
obrigar o computador a memorizar 
mais de uma instrução. 

Da última vez que você mexeu no 
computador, a tela estava assim: 


1 PRINT 34534 + 12111 T 


E 


Agora vamos colocar uma outra 
instrução no programa. Para isso bas¬ 
tará colocar outro número no começo 
do novo programa. Esse número de¬ 
verá estar em ordem crescente, com¬ 
parado com o número do programa 
anteriormente digitado. Como a ins¬ 
trução anterior usou o número 1, va¬ 
mos usar nesta o número 2: 

2 PRINT 897 - 345 


0/2 


Aí está o programa novamente. 

Outra coisa interessante de um pro 
grama BASIC é que eu posso man 
dar o computador rodá-lo (executá 
lo) a partir da linha que eu quiser. 
Experimente digitar RUN 2: 


F46645 ' 1 

552 


1 RUN 2 [lJ 


Veja o resultado: 


r 552 


i 0/2 

J 


Digite essa nova instrução e pres¬ 
sione a tecla NEW LINE: 


jlPRINT 34534 + 12111 
2 PRINT 897 - 345 


E 


Note que agora o nosso programa 
tem duas instruções, uma debaixo da 
outra. Por isso demos o número 2 (or¬ 
dem crescente) à segunda linha. E 
para que o computador saiba que es¬ 
sa linha deve vir depois da outra: as¬ 
sim ele vai saber a ordem das linhas. 

Pressione RUN e NEW LINE e veja 
o resultado: 


I o computador calculou e mostrou 
primeiro o resultado da linha 1 
e depois o resultado da linha 2. 


O computador fez apenas a segun¬ 
da conta, ou seja, ele executou o pro¬ 
grama a partir da linha número 2. 

SE EU NAO COLOCAR NENHUM NÚ- 
MERO APÓS O COMANDO RUN, ele 
começa a executar um programa a 
partir da instrução que estiver em pri¬ 
meiro lugar. 



omo Apagar 
um Programa 


Se eu quiser tirar este programa 
da memória do computador, para co¬ 
locar outro, existe o comando: 

NEW 

NEW quer dizer NOVO, em inglês. 
Ou seja, eu quero colocar um progra¬ 
ma novo, por isso apago da memória 
o programa velho. 


Ele sempre obedece assim aos pro¬ 
gramas: primeiro ele obedece a um 
comando e só depois vai obedecer 
ao outro. 

Se você pressionar NEW LINE nova¬ 
mente, veja o que acontecerá: 


Para introduzir o comando NEW, 
deve-se apertar a tecla A, quando 
na tela estiver o cursor K. 

Experimente: 



E agora aperte a tecla NEW LINE. 
Note que o programa desapareceu 
da memória. 



Vamos fazer um programa para 
entender melhor o que foi explica¬ 
do. O problema vai ser o seguinte: 

Vamos fazer um programa para 
mostrar na tela a tabuada de multi¬ 
plicar pelo número 7. 

O programa para fazer isso deve 
ser assim: 

10 PRINT 7 * 1 
20 PRINT 7 * 2 
30 PRINT 7 * 3 
40 PRINT 7 * 4 

Coloque esse programa na memó¬ 
ria do computador. 

Você deve estar achando estranho 
que os números das linhas neste pro¬ 
grama vão de 10 em 10. 

Isso não é problema. Como já foi 
dito, a gente pode colocar o número 
de linhas que quiser, desde que este¬ 
ja em ordem crescente (ou seja, os 
números das linhas que vêm depois 
têm que ser cada vez maiores). Exis¬ 
te uma vantagem em colocar os nú¬ 
meros de linha de 10 em 10 ou de 20 
em 20, em vez de 1 em 1, como no 
primeiro programa. Depois você vai 
entender por quê. 

Por enquanto, introduza o progra¬ 
ma como está aqui. 


1 10 PRINT 7*1 
20 PRINT 7*2 
I 30 PRINT 7*3 
40 PRINT 7*4 



E pressione a tecla RUN. O resulta¬ 
do mostrado na tela será: 


7 

- 1 

14 


21 


28 


1 0/40 

J 


Apareceu tudo de uma vez, uma 
multiplicação em cada linha. 
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orrigindo 
o Programa 


O programa que está colocado na 
memória pode ser modificado quan¬ 
tas vezes eu quiser. 

Existem maneiras de colocar mais 
linhas, digitar de novo uma linha (se 
eu errei ou quero mudá-la), e até 
apagar uma linha. 

Essas são chamadas funções de 
edição do BASIC. 

Observe que eu posso colocar 
mais linhas NO FINAL do programa, 
se eu quiser: 


50 PRINT 7 * 5 
Pressione RUN. 

O que aconteceu? 


m 


10 PRINT 7*1 
20 PRINT 7*2 
30 PRINT 7*3 
40 PRINT 7*4 
50 PRINT 7*5 


Se uma linha do programa na me¬ 
mória estiver errada, ou se eu quiser 
mudá-la, basta escrevê-la de novo, 
começando com o mesmo número 
da linha: 


Vamos supor que eu quero a linha 
50 mudada para: 

50 PRINT 7 * 6 

Experimente digitá-la assim, e 
pressione NEW LINE. Veja o que 
acontece: 


I 


10 PRINT 7*1 
20 PRINT 7*2 
30 PRINT 7*3 
40 PRINT 7*4 
50 PRINT 7*6 


A linha 50 foi SUBSTITUÍDA por 
uma nova. A linha 50 antiga sumiu. 

Posso também colocar novas instru¬ 
ções NO MEIO do programa que está 
na memória. 

Suponhamos que eu quero ver tam¬ 
bém o resultado de 7 vezes 2,5 (apa¬ 
recendo na tela entre 7 x 2 e 7 x 3). Ex¬ 
perimente digitar a linha. 

25 PRINT 7 * 2.5 
E pressione a tecla NEW LINE: 


10 PRINT 7*1 
20 PRINT 7*2 
25 PRINT 7*2.5 
30 PRINT 7*3 
40 PRINT 7*4 
50 PRINT 7*6 


Agora pressione a tecla RUN: 


C 7 

1 

1 14 

I 

17.5 


21 


28 

d 

i 42 


|[0 50 



O COMPUTADOR COLOCA A LI¬ 
NHA DE INSTRUÇÃO NA ORDEM 
CERTA 

Agora você entendeu qual é a van¬ 
tagem de numerar as linhas de 10 
em 10. Deixando um "espaço" entre 
elas, eu posso mais tarde colocar 
uma ou mais linhas de instrução en¬ 
tre elas. 

Isso se chama INSERIR LINHAS. 

Outra coisa interessante que posso 
fazer é apagar uma linha sem preci¬ 
sar apagar todo o programa. 

Com o programa da tabuada na 
memória, experimente digitar ape¬ 
nas o número de linha 25 e pressione 
NEW LINE: 

Pressionando de novo NEW LINE, 
você vê que a linha 25 desaparece. 

Pressione RUN e me diga qual foi o 
resultado: 

Resposta: 




_ 

_ ) 



5.1. O que se deve fazer para colocar uma ins¬ 
trução na memória do computador? 

5.2. O que acontece quando nós digitamos 
uma linha de instrução que começa com um 
número? 

5.3. O que acontece quando nós digitamos no 
computador uma linha de instrução que não 
começa com um número? 

5.4. Defina com suas próprias palavras o que 
é um PROGRAMA: 

5.5. Cite duas vantagens de poder colocar um 
programa na memória do computador: 


Agora responda às perguntas abaixo, sobre 
este programa. 

Mas lembre-se: não vale testar no computa¬ 
dor. Faça de conta que você é o computador! 

Como apareceria o resultado na tela, se o 
computador receber o comando RUN? 



E como ficaria o programa, se agora fa 
digitado apenas o número: 

30 (NEW LINE) 

Qual será o novo resultado, se o compu 
dor receber o comando RUN novamente? 



5.6. Para que servem os comandos: 

RUN 

NEW 

PRINT 

5.7. Por que devemos numerar em ordem cres¬ 
cente as linhas de um programa? 

5.8. Faça de conta que você é o computador, 
e alguém colocou na sua memória o progra¬ 
ma abaixo: 

10 PRINT 2 * 3/2 

20 PRINT (233 - 33)/10 


Como apareceria o resultado na tela, se o 
computador receber o comando RUN 20? 



Como ficaria o programa na memória, se 
for introduzida a linha: 


AGORA COLOQUE ESSES EXERCÍCIOS 
COMPUTADOR E VEJA SE CONFERE. 

5.9. Faça um programa para calcular e e 
trar na tela a tabuada de multiplicar do 
mero 9: 


5.10. Faça um programa para calcular qtf 
tos segundos tem um ano, e quantos dias ? 
um período de 14 anos. 


15 PRINT 99 




























rogramas 
Que Fazem 
Contas 


2. Uma motocicleta gastou 25.8 litros 
de gasolina em uma viagem. No co¬ 
meço da viagem o contador de quilo¬ 
metragem indicava 12346 e, ao final 
da viagem, indicava 13193. De quan¬ 
tos quilômetros/litro foi o consumo? 

SOLUÇÃO 


Vamos fazer agora alguns exercí¬ 
cios utilizando o comando PRINT den¬ 
tro de programas. 

Para isso, vamos programar alguns 
exemplos do TESTE do capítulo 3: 

1. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 36 
polegçdas. Qual é o comprimento do 
campo em centímetros e em metros 
(dica: uma polegada vale 2,54 cm) 

SOLUÇÃO: 

10 PRINT 100 * 36 * 2.54 
20 PRINT (100 * 36 * 2.54)/100 
RUN 

A linha 10 vai dar a solução em 
centímetros, e a linha 20 em metros 
(100 jardas vezes 36 polegadas vezes 
2,54 cm dividido por 100, para dar a 
solução em metros). 


Resposta: 


10 PRINT (13193 - 12346V25.8 
RUN 

Resposta: . 

3. A circunferência de um círculo é 
dada pela fórmula 2 x tt x R. O sím¬ 
bolo tt vale 3.14159; e o R é o rcrio da 
circunferência. Uma roda de bicicle¬ 
ta tem o raio de 35,234 cm. Qual é a 
circunferência da roda? 

SOLUÇÃO: 

10 PRINT 2 * 3.14159 * 35.234 
RUN 

Resposta: . 

4. Quantas voltas por quilômetro da¬ 
rá uma roda de automóvel com diâ¬ 
metro de 45 cm? 


SOLUÇÃO 

10 PRINT 100 * 1000/(3.14159 * 45) 
RUN 


Resposta: 


O número de centímetros contidos 
em um quilômetro é 100 x 1000. 

A circunferência de um círculo é 
igual a tt x diâmetro. 

Dividindo o número de centímetros 
em um quilômetro pela circunferên¬ 
cia, teremos o número de voltas da¬ 
das em um quilômetro. 

5. Em um triângulo retângulo, o qua¬ 
drado da hipotenusa é igual à soma 
dos quadrados dos catetos. Supondo 
que a hipotenusa mede 29,238 e um 
dos catetos mede 12,34, qual é o va¬ 
lor do outro cateto? 

SOLUÇÃO: 

10 PRINT SQR (29.238 2 - 12.34 

** 2 ) 

RUN 

Resposta: . 
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n COMPUTADOR 
TAMBÉM 
ESCREVE 


Até agora, você viu que podemos 
usar a instrução PRINT para mostrar nú¬ 
meros na tela do computador, de modo 
direto ou em um programa. O coman¬ 
do PRINT também serve para calcular 
expressões matemáticas e mostrar, ao 
mesmo tempo, o resultado. 

Agora vamos aprender como pro¬ 
gramar o computador para que ele 
escreva letras na tela. 

Se conseguirmos fazer com que o 
computador escreva letras, também 
poderemos conseguir que escreva no¬ 
mes, títulos e mensagens, certo? 

Uma instrução PRINT também po¬ 
de ser usada para escrever letras (A, 
B, C, D... etc.), e outros sinais espe¬ 
ciais^ % $ \ e outros). As letras, nú¬ 
meros e sinais especiais são chama¬ 
dos de CARACTERES. 


A letra A é um caractere. 

O cifrão ($) também é um caractere. 

E o espaço em branco também é 
um caractere (tecla SPC, que quer di¬ 
zer ESPAÇO, e tem o mesmo efeito 
que aquela barra da parte de baixo 
do teclado da máquina de escrever). 

É muito simples fazer o computa¬ 
dor escrever alguma coisa. 

Basta colocar entre aspas a MEN¬ 
SAGEM que nós queremos que ele 
escreva. 

Assim: 

PRINT "ALÔ, EU SOU O 
COMPUTADOR R'' 

Experimente digitar esta linha no 
computador: 



E aperte NEW LINE: 

Viu? 

O computador escreve na tela exa¬ 
tamente o que você escreveu entre 


Mesmo se você tivesse colocado al¬ 
go errado (ou um palavrão!): 

PRINT "ALÔ, EU SOU O 

COMPUTADOR" 

Ao computador não interessa o 
que você põe entre aspas. 

Pode ser até em turco ou em italia¬ 
no. Ele reproduz como está. 

PRINT "HELLO, HOW ARE YOU?" 


Usando espaços (como o da linha 
20, que fica "em branco" e como os 
da tecla SPC, que separa as pala¬ 
vras entre si), eu posso colocar onde 
quiser, na tela, alguma mensagem 
ou título: 

10 PRINT "COMPUTADOR TK 85" 

Todos os espaços colocados na 
mensagem entre aspas são mostra¬ 
dos na tela do computador. 


Podemos colocar mensagens em 
uma instrução PRINT, tanto de modo 
direto (linha sem número no come¬ 
ço), quanto em um programa (linha 
com um número no começo). 

Vamos fazer um programinha. 

Primeiro pressione a tecla NEW pa¬ 
ra "limpar" a memória. 

Introduza agora o seguinte 
programa: 

10 PRINT "ALÔ, COMO VAI VOCÊ7' 

20 PRINT 

30 PRINT "EU SOU O 
COMPUTADOR TK 85" 

40 PRINT "E EU TAMBÉM SEI 
ESCREVER" 

Você já aprendeu que o computa¬ 
dor é meio "burro". 

Ele só faz uma coisa de cada vez. 

Primeiro, ele obedece o comando 
número 10, depois o 20, depois o 30. 

Veja agora o que acontece, se vo¬ 
cê pressionar a tecla RUN: 


FalO, COMO VAI VOCE? 

EU SOU 0 COMPUTADOR TK 85 
E EU TAMBÉM SEI ESCREVER 


0/40 



isturando 
Nomes e 
Números 


Usar palavras entre aspas dentro 
de uma instrução PRINT é muito útil 
para dar um título às respostas dos 
cálculos feitos pelo computador. 

A instrução PRINT permite a você 
misturar mensagens com expressões, 
na ordem que quiser. 

Vamos dar um exemplo: 

Quantos segundos existem em um 

ano? 

Esse programa você já fez: 

10 PRINT 60 * 60 * 24 * 265 

O computador vai mostrar este re¬ 
sultado, quando você pressionar a te¬ 
cla RUN: 



Você sabe o que significa esse nú¬ 
mero sozinho lá na tela, certo? Afinal, 
foi você quem resolveu o problema.'. 



1. Faça um programa para escrever na tela o seu nome e o de sua escola. 
Resposta: 


2. Faça um programa para colocar 
Resposta: 


seu nome bem no meio da tela, na linha de cima. 




aspas. 


18 













Mas os programas de computador 
são feitos também para uso de outras 
pessoas. Por isso é bom colocar títulos 
para explicar os resultados na tela. 

Veja como fica bem melhor assim 
o programa: 

10 PRINT "UM ANO TEM"; 60 * 60 * 

24 * 365; "SEGUNDOS." 

Vamos analisar as partes desta 
instrução: 

10 é o número da linha 

PRINT a instrução para mostrar o 

que vem depois 

"UM ANO TEM" deve aparecer 
primeiro esta mensagem 
; => serve para separar a mensa¬ 
gem do que vem depois 
60 * 60 * 24 * 365 cálculo do núme¬ 
ro de segundos em um ano 
; => serve para separar o número re¬ 
sultante da palavra 
"SEGUNDOS." => outra mensagem 

Experimente digitar o programa no 
computador. Pressione a tecla RUN e 
veja o que acontece: 



Viu como funciona direitinho? 

EM UMA INSTRUÇÃO PRINT NÓS 
PODEMOS COLOCAR QUANTOS TÍ¬ 
TULOS, EXPRESSÕES E NÚMEROS 
QUISERMOS. 

A única condição é que eles este¬ 
jam separados uns dos outros por 
meio de espaços. 

Você aprendeu que o ponto e vírgu¬ 
la (;) é usado para separar os elemen¬ 
tos (partes) de uma linha de impres¬ 
são PRINT. 

USANDO O ; NO LUGAR DE SPC, 
AS PARTES DA UNHA DE IMPRES¬ 
SÃO VÃO ESTAR UNIDAS UMAS 
NAS OUTRAS. 

Ou seja, elas serão mostradas na 
tela sem ter entre si um espaço em 
branco. 

Experimente que diferença faz es¬ 
tes três comandos PRINT: 

10 PRINT "3 VEZES 2 IGUAL A"; 6 

20 PRINT "3 VEZES 2 IGUAL A "; 6 

30 PRINT "3 VEZES 2 IGUAL A "; 6 

Digite este programa no computa¬ 
dor e veja o resultado quando pres¬ 
sionar a tecla RUN: 



Quando pomos várias mensagens 
em seguida na mesma instrução 
PRINT, podemos fazer com que elas 
apareçam grudadas umas nas ou¬ 
tras ou não. Tente digitar as seguin¬ 
tes linhas de modo direto: 

PRINT "RENATO"; "REJANE" 

PRINT "RENATO "; "REJANE" 

PRINT "RENATO"; " REJANE" 

PRINT "RENATO" ;" REJANE" 

Responda: qual a diferença entre 
os resultados impressos destas li¬ 
nhas? 


OS ESPAÇOS EM BRANCO DEN¬ 
TRO DAS DUAS ASPAS TAMBÉM 
SÃO IMPRESSOS. 



mprimindo 
Onde Eu 
Quero 


Depois de saber para que serve o 
ponto e vírgula no comando PRINT, é 
fácil entender como podemos impri¬ 
mir qualquer mensagem ou resulta¬ 
do em um ponto qualquer da tela. 
Vamos mostrar um exemplo: 

Eu quero imprimir na tela uma li¬ 
nha contendo o nome de um time de 
futebol (no começo da linha), depois 
a cidade de onde ele é (começando 
na posição número 15 da linha), e 
quantos pontos ele tem (começando 
na posição número 25 da linha). 

Pondo vários times assim, vai se 
formar uma tabela bonitinha, com to¬ 
das as colunas alinhadas, certo? 

PALMEIRAS SÃO PAULO 12 

GUARANI CAMPINAS 9 

PONTE PRETA CAMPINAS 7 

É claro que nós podemos fazer li¬ 
nhas PRINT assim: 

10 PRINT "PALMEIRAS SÃO PAULO 
12 " 

20 PRINT "GUARANI CAMPINAS 9" 

30 PRINT "PONTE PRETA CAMPINAS 

7" 


Mas é claro que assim há muito 
desperdício de espaços # em branco. 

Cada letra, número ou espaço que 
colocamos dentro de uma mensagem 
PRINT ocupa uma unidade a mais de 
memória no computador. 

Como o computador não tem mui¬ 
ta memória, às vezes é importante 
economizá-la. 

Outra coisa aborrecida neste méto¬ 
do é que temos que digitar um monte 
de brancos repetidos. Isso demora e 
sempre apresenta erros (contamos o 
número errado de brancos). 

PARA CONTAR ESPAÇOS EM 
BRANCO ENTRE DUAS MENSA¬ 
GENS OU NÚMEROS, EXISTE UMA 
FUNÇÃO ESPECIAL EM BASIC 

Lembra-se das funções? 

O exemplo que nós demos foi da 
raiz quadrada (SQR): você fornece 
um número (o argumento), e a fun¬ 
ção calcula outro (a raiz quadrada). 

Agora vamos estudar a função 
TAB. 

(Procure onde ela fica no teclado. 
Lembre-se de que é preciso transfor¬ 
mar antes o cursor em F, pressionan¬ 
do SHIFT E NEW UNE). 

Ela não calcula nada: apenas colo¬ 
ca onde quisermos os elementos de 
uma instrução PRINT. 

Por exemplo: 

PRINT TAB 10;"VIDEO GAME" 

Vai escrever a mensagem: 



começando na posição 10 da linha, 
quando o comando PRINT for obede¬ 
cido. 

Dizemos que houve uma TABULA¬ 
ÇÃO até a coluna (ou posição) 10. 

Veja como ficaria melhor o nosso 
programa de exemplo: 

10 PRINT "PALMEIRAS"; TAB 1$; 
"SÃO-PAULO"; TAB 25; 12 
"20 PRINT "GUARANI"; TAB 15; 
"CAMPINAS"; TAB 25;7 
30 PRINTPONTE PRETA"; TAB 15; 
"CAMPINAS"; TAB 25;5 


Digite o programa no computador 
(nunca se esqueça de pressionar a te¬ 
cla NEW UNÉ se antes já tiver algum 
programa na memória, que possa 
apagá-lo). 

Veja como o resultado é idêntico 
ao programa anterior. 
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E você aprendeu algumas coisi- 
nhas agora: 

1. A FUNÇÃO TAB NÃO CALCULA 
NADA (NÃO É MATEMÁTICA) 

2. O ARGUMENTO DE TAB INDICA 
EM QUE COLUNA VAI COMEÇAR A 
MENSAGEM 

3. POSSO COLOCAR VÁRIOS TAB 
NUMA MESMA UNHA 

4. A FUNÇÃO TAB FUNCIONA SO¬ 
MENTE PARA UMA LINHA NA TELA 

Uma outra coisinha: o argumento 
da função TAB também pode ser 
uma expressão matemática. Por 
exemplo: 

PRINT TAB (45 - 3*2);"MEU NOME" 

que é calculado pelo computador 
e vale a mesma coisa que: 

PRINT TAB 39;"MEU NOME" 

Note que temos que usar parênte¬ 
ses quando a expressão é constituída 
por letras. 

Agora, para não usar de modo er¬ 
rado o comando TAB, é importante 
saber o seguinte: 

UMA UNHA NA TELA DO TK 85 TEM 
ATÉ 32 COLUNAS 

Por isso, não é bom colocar um nú¬ 


mero maior que 32 como argumento 
de TAB: 

Não funciona colocar vários TAB 
numa mesma linha, mas com argu¬ 
mentos que sejam menores do que 
os que vinham antes. 

Por exemplo: 

PRINT TAB 12;"JOÃO E"; TAB 5;"MA- 
RIA" 

Experimente no computador para 
ver o que acontece. 

Resposta: 

Existe também uma outra maneira 
mais simples de separar as partes 
misturadas de um comando PRINT, 
por meio de tabulações: é usando a 
vírgula. 

A diferença entre o ponto e vírgula 
e a vírgula é que esta tabula, na ho¬ 
ra da impressão, a mensagem ou re¬ 
sultado, começando na coluna 16 na 
tela. 

Vamos seguir estes exemplos: 

PRINT "RENATO", "REJANE" 

Vai aparecer assim na tela: 


RENATO REJANE 


Note que RENATO está começando 
na coluna 1 da primeira linha, e RE- 
IANE na coluna 16 da mesma linha. 

A vírgula funciona como TAB 16. 
Agora outro exemplo: 

PRINT ''COMPUTADOR",TK 85", 
"FUNCIONA" 

Vai aparecer assim na tela: 


COMPUTADOR TK 85 j 
FUNCIONA 


O que aconteceu? 

A primeira vírgula colocou TK 85 
na coluna 16 da primeira linha. 

A segunda vírgula iria colocar 
mais 16 espaços de tabulação (o que 
daria 32). 

Mas como a linha só tem 32 colu¬ 
nas, a palavra FUNCIONA foi para a 
primeira posição da linha seguinte! 

Podemos usar a vírgula para brin¬ 
car um pouco: 

PRINTTUPERAMA", LEGAL",, TK 
85" 

Veja que duas vírgulas sem nada 
entre si, valem dois TÃB 16. 


Vamos fazer agora alguns exercí¬ 
cios simples. 

Vamos pegar alguns exemplos de 
EXERCÍCIOS anteriores de cálculo, 
usando o PRINT, e vamos colocar al¬ 
guns títulos para melhorar a manei¬ 
ra como o computador mostra os re¬ 
sultados na tela. 

Para cada programa seguinte, pro¬ 
cure fazer várias linhas: umas con¬ 
tendo os dados do problema, e ou¬ 
tras os resultados. 

1. Um carro tinha 45.5 litros de com¬ 
bustível no tanque. Depois de uma 
viagem ficou apenas com 10.0. Eu ti¬ 



nha gasto Cr$ 12 400,00 para encher 
o tanque de 50 litros. Quanto custou 
o litro de gasolina e quanto custou a 
gasolina gasta na viagem? 

Resposta: 


Resultado: 

2. Qual é a média das notas 4.5, 8.6, 
3.2 e 7.0? 

Resposta: 


Resultado: 


3. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 
36 polegadas. Qual é o comprimento 
do campo em centímetros e em me¬ 
tros (dica: uma polegada vale 2,54 
cm)? 

Resposta: 


Resultado: 
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6.1. Digite no computador: 

a. PRINT 8 * 6 

b. PRINT" 8 * 6" 

c. PRINT'8 * 6 =";8 * 6 

Qual foi o resultado em cada caso? 
Explique a diferença: 


6.2. Para que servem a vírgula e o 
ponto e vírgula dentro de uma de¬ 
claração PRINT? 

6.3. Qual é a utilidade de se mistu¬ 
rar mensagens entre aspas e resul¬ 
tados numéricos ou expressões ma¬ 
temáticas em um comando PRINT? 

6.4. Quais são as dimensões da tela 
do TK 85: 

número de linhas: 
número de colunas: 

Para que serve a última linha de 
baixo na tela? 


6.5. Verifique se os comandos abai¬ 
xo estão corretos. Se não estiverem, 
coloque ao lado a forma correta. De¬ 
pois, digite no computador e escre¬ 
va o resultado ao lado. 

a. PRINT (2 * (3+4)-2 


b. PRINT PRINT 


c. PRINT 84 * 1135-20 * 4767 


d. PRINT "TK";85;"C‘ 


e. PRINT "CURSO DE COMPUTA¬ 
DORES" 


T E S T B 

f. PRINT -3 * -4 

g. PRINT"CONTAS DE SOMAR 

h. PRINT"COMPITADOR 


6.6. Usando a função TAB, escreva 
uma instrução PRINT para colocar a 
palavra COMPUTADOR exatamen¬ 
te no centro da linha da tela. 

6.7. Escreva uma instrução PRINT 
para colocar na tela os números de 
1 a 8, distribuídos em duas colunas, 
assim: 


Resposta: 


6.8. Responda: TAB é: 

a. comando 

b. função 

c. programa 

d. não existe em BASIC 

6.9. Para que serve a função TAB? 


6.10. Faça de conta que você é o 
computador. Como ficará a tela do 
computador, depois de obedecer ele 
as instruções seguintes? 


a. PRINT"MEU NOME E","DANIEL' 


b. PRINT TAB 25;"TESTE",„ "ESPA¬ 
CIAL" 


c. PRINT TAB 12;12;TAB 28;28 


6.11. Responda se é verdadeiro (V) 
ou falso (F): 

( ) A função TAB não calcula ne¬ 
nhuma função matemática. 

( ) Só se pode colocar um TAB em 
cada instrução PRINT. 

( ) A vírgula usada para separação 
em PRINT funciona como TÁB. 

( ) TAB quer dizer tabulação. 

( ) Posso usar a função TAB com 
um número maior do que 32. 

6.12. Faça um programa para colo¬ 
car na tela uma lista de 3 times de 
futebol, numerada. Por exemplo: 

1 PALMEIRAS 

2 BOTAFOGO 

3 FLAMENGO 
Resposta: 


6.13. Faça um programa para colo¬ 
car um sinal + em cada canto da te¬ 
la (dica: use o comando PRINT AT). 







epetindo 

Coisas 


Outro dia eu me convenci de que 
devia escrever quatro vezes meu no¬ 
me na tela do computador. 

O programa para fazer isso é fácil, 

não acha? 

10 PRINT "RENATO" 

20 PRINT "RENATO" 

30 PRINT "RENATO" 

40 PRINT "RENATO" 

O computador vai obedecer assim: 


^RENATO 

1 RENATO 

RENATO 

RENATO 

] 

|j3/40 
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Faça a mesma coisa com o seu no¬ 
me e veja o resultado! 

Eu também poderia ter escrito as- 

llTpRINT "RENATO RENATO RENA¬ 
TO RENATO" 

Em vez de aparecer tudo na verti¬ 
cal (um nome em cada linha), ia apa¬ 
recer tudo na horizontal, certo? 

Pois bem. E se eu quiser encher a 
tela inteira com o meu nome? 

Não responda já: preste bem aten¬ 
ção. 

A tela tem 21 linhas. Eu teria que 
colocar no programa 21 instruções 
PRINT, todas iguais. 

Daria muito trabalho, não é? 

EU POSSO ORDENAR AO COMPU¬ 
TADOR QUE REPITA UMA LINHA DE 
PROGRAMA QUANTAS VEZES EU 
QUISER. 

Basta mandar que ele "volte até a 
linha PRINT. 

Assim: 

10 PRINT "RENATO" 

20 GOTO 10 

A instrução GOTO, em inglês, 
quer dizer: VÁ PARA 

Portanto, GOTO 10 quer dizer: VA 
PARA A UNHA NÚMERO 10! 

Como é que isto faz o computador 
repetir a linha 10? 

Lembra-se de que eu disse que o 
computador obedece (executa) uma 
linha de cada vez? E que ele só exe¬ 
cuta a linha seguinte depois de fazer 
o que a linha anterior diz? 


Pois bem. Siga as flechinhas abai¬ 
xo. Você é o computador. 


10 PRINT "RENATO 



♦ 

20 GOTO 10 ■■■■■■■■■■■ 

A primeira vez que eu pressionar a 
tecla RUN, o que acontece? 

O computador obedece a instrução 
na linha 10, e escreve na tela: 



Em seguida ele vai obedecer a li¬ 
nha 20, que diz a ele: 

VÁ PARA A UNHA 10 
E ele, bonzinho, volta para lá e exe¬ 
cuta de novo a linha 10: 

* E de novo: 



Até preencher a tela toda! 


í RENATO 
RENATO 
RENATO 
! RENATO 
I RENATO 
|l RENATO 





b. Se você quiser que o programa 
continue a ser executado, procure on¬ 
de fica o comando CONT. Ele signifi¬ 
ca CONTINUE: você está dizendo a 
ele para continuar. 

O que acontece? 

A tela fica escura, e depois o pro¬ 
grama continua a repetir a linha 10. 

c. Quando você estiver cansado de 
ver o programa continuar, ao apare¬ 
cer a mensagem 5/10 pressione a te¬ 
cla NEW UNE: 


10PRINT "RENATO”; 
20 GOTO 10 


aparece de novo o programa que es¬ 
tava na memória. 

Uma outra maneira de interromper 
o programa (parar de executar), en¬ 
quanto ele estiver ainda escrevendo 
as linhas, é pressionar a tecla 
BREAK. 

BREAK em inglês quer dizer QUE¬ 
BRAR ou INTERROMPER. 

Veja onde fica a palavra, acima 
da tecla NEW UNE. 

Por isso você precisa pressionar ao 
mesmo tempo a tecla SHIFT e a tecla 
NEW UNE. 

Esta tecla BREAK só funciona en¬ 
quanto o programa ainda não pa¬ 
rou, ao chegar ao final da tela. 

Faça agora um programa para es¬ 
crever seu nome em toda a tela (um 
nome em cada linha): 


Como fazer para escrever o nome 
em toda a tela, mas um depois do ou¬ 
tro (vários em cada linha da tela)? 


Quando ele preenche a tela, apare¬ 
ce na última linha a mensagem: 

5/10 

Isso quer dizer que o computador 
parou na linha 10, acusando uma 
mensagem número 5. 

A mensagem número 5 significa: 

NÁO HÁ MAIS ESPAÇO NA TELA 

(veja a lista de mensagens de erros 
no fim da obra, onde está explicado o 
que significa cada uma delas). 

Agora o computador vai ficar espe¬ 
rando que você decida o que fazer: 
a. Se você quiser ficar lendo ou admi¬ 
rando a tela escrita, ele espera. 


Experimente este: 

' 10 PRINT "RENATO"; 
20 GOTO 10 

Qual foi o resultado? 
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Note que este programa tem duas 
coisas diferentes do outro: 

1. existe um espaço em branco entre o 
fim do nome (letra O) e a última aspa. 

2. existe um ; no final da linha 10. 

Para explicar o que aconteceu é 
fácil: 

colocando um ; no final da linha 
10, a próxima vez que o computador 
repeti-la, o nome aparecerá unido ao 
anterior. 

Lembra-se de que o ponto e vírgu¬ 
la serve para separar as partes de 
uma instrução PRINT, que queremos 
que apareçam unidas? 

Aqui também funciona deste jeito. 

Se eu não puser um ; no final da li¬ 
nha PRINT, a próxima vez que o com¬ 
putador obedecer outro PRINT, ele 
passará a escrever na linha de bai¬ 
xo, e assim por diante. 

Coloquei o espaço em branco de¬ 
pois do nome RENATO para não apa¬ 
recer assim na tela: 

RENATORENATORENATORENATO- 
RENATORENATO etc. 

Experimente colocar o seu nome 
ou então com uma frase assim: 

10 PRINT "MARIO E O MAIORAL"; 
ou então: 


10 PRINT "JOÃOZINHO QUER NAMO¬ 
RAR MARIA"; 


D esenhando 

na Tela 


Agora você vai ver que o computa¬ 
dor TK-85 também pode ser usado pa¬ 
ra desenhar uma porção de coisas 
na tela, através da programação. 

Essa maneira de desenhar gráfi¬ 
cos especiais é chamada de MODO 
GRÁFICO. 

E ele funciona de uma maneira 
muito simples: é também com a ins¬ 
trução PRINT. 

Se você olhar bem o teclado, ve¬ 
rá que na parte de cima de algu¬ 
mas teclas existem uns desenhos en¬ 
graçados. 

Eles são chamados de CARACTE- 
RES ou BLOCOS GRÁFICOS. 

Nós temos no teclado os seguintes 
blocos: 


c 

c 

□1 

JL 

a 


s 

Q 

TI 


1. Faça um programa para colocar 
na tela as palavras TIC e TAC, uma 
em cada linha, até encher toda a te¬ 
la, assim: 


3. O que faz este programa? 

110 PRINT TAB 16; T' 
125 GOTO 110 
Resposta: 



Resposta: 


4. O que há de errado com este pro¬ 
grama? 

40 PRINT "PROGRAMA BASIC"; 

55 GOTO 45 

Que mensagem de erro vai apare¬ 
cer, se você colocar esse programa 
no computador e executá-lo? 


2. Modifique o programa para escre¬ 
ver toda a tela, mas com as pala¬ 
vras TIC e TAC unidas. 

Resposta: 


5. O que faz este programa? 

100 GOTO 100 

Como devo fazer para interromper 
o programa, neste caso? 


TECLA GRÁFICO 


■ n 

• a 

■ □ 

■ B 

• D 

• H 

• B 

■ a 

• j 

. n 



• • • • • 
• • • • • 


m 


B8S 


H 












































Se você prestar bem atenção, pode¬ 
rá ver que eles correspondem aos pe¬ 
dacinhos de um quadrado dividido 
em quatros partes, combinados de di¬ 
versas maneiras: 





etc... 


Alguns dos blocos gráficos tam¬ 
bém têm partes cinza (pontinhos bem 
pequenos e próximos). 

Com estes blocos gráficos podemos 
montar uma série de desenhos inte¬ 
ressantes: 



um aviãozinho 



um foguete 


um dado 


Veja como é fácil! 

Para colocar dentro de uma instru¬ 
ção PRINT os blocos gráficos, eles de¬ 
vem estar dentro de aspas. Coloque 
a seguinte linha de programa (pres¬ 
sione NEW antes): 



10 PRINT “ [T] 



Para poder digitar os blocos gráfi¬ 
cos, devemos mudar o cursor L (le¬ 
tras) para G (gráficos). 

Isto é feito pressionando-se simulta¬ 
neamente as teclas SHIFT e 9. Veja 
que está escrita a palavra GRA¬ 
PHICS em cima do, rótulo da tecla 9. 
Isso quer dizer GRÁFICOS em portu¬ 
guês, certo? 

Note que, quando você fizer isso, o 
cursor muda para G: 



i 10 PRINT" E 
^_ 


a tecla SHIFT e uma tecla contendo 
um bloco gráfico, ele aparecerá na 
tela. 

Experimente digitar SHIFT e a te¬ 
cla W: 



Depois SHIFT 6, SHIFT W e SHIFT 6 
de novo: 



Veja que está se formando uma fi¬ 
gura, porque os blocos gráficos ficam 
grudados (o que não acontece com 
as letras). 

Para colocar as aspas np final, te¬ 
mos que sair do MODO GRÁFICO. 

Apertamos então as teclas SHIFT e 
9 novamente: 



Veja que o cursor mudou de novo 
para L. 

Agora sim pressione aspas e de¬ 
pois NEW UNE. 

Pressione RUN para ver o que 
acontece: 



Colocando várias linhas de progra¬ 
ma alinhadas, os blocos gráficos das 
linhas de cima se grudam com os de 
baixo: 



Veja que agora conseguimos fazer 
um aviãozinho. 

Tente fazer, como exercício, as ou¬ 
tras figuras mostradas logo no come¬ 
ço desta lição! 

O modo gráfico também pode ser 
usado para escrever as letras e ou¬ 
tros caracteres em cor preta sobre o 
fundo branco, ao invés de como apa¬ 
recem normalmente na tela. 

Esta maneira de escrever se deno¬ 
mina MODO INVERSO, ou caracte¬ 
res em campo invertido. 

Vamos dar um exemplo: 

Suponha que eu quero escrever o 
nome deste computador bem no 
meio do topo da tela, em caracteres 
inversos. Assim: 



Para conseguir r isso, você deve 
usar o MODO GRÁFICO para escre¬ 
ver o nome. Só que não deve pressio¬ 
nar a tecla SHIFT antes, como no ca¬ 
so dos blocos gráficos. Pressione as 
teclas das letras que você quiser colo¬ 
car normal mente: 

Comece digitando: 

10 PRINT TAB 10;" 



Depois pressione SHIFT junto com 
a tecla 9 para mudar o cursor para G 
(GRAPHICS): 




10 PRINT TAB 10; “ [G 


-j, 


Agora tudo o que você digitar pelo 
teclado aparecerá de forma diferente. 
Pressionando AO MESMO TEMPO 






















BÈE 


íUsLfi 


IQ 


Agora pode digitar as letras TK 85: 



Viu como saiu direitinho? 

Agora pressione SHIFT e 9 juntos 
novamente, para mudar o cursor pa¬ 
ra L, e digite o sinal de aspas do final 
e pressione NEW UNE: 


p— 

10 PRINT “ TK 85” 


E 


Pressione RUN e veja o que acon¬ 
tece! 


1. Faça de novo o exercício de escre¬ 
ver TIC e TAC na tela, com um pro¬ 
grama (lembra-se? TIC em uma li¬ 
nha e TAC em outra). Só que desta 
vez TIC deve aparecer em caracteres 
normais (letras brancas em fundo 
preto) e TAC em caracteres inversos 
(letras pretas sobre fundo branco). 
Resposta: 


2. Faça um programa para colocar 
no topo da tela uma moldura assim, 
com seu nome no meio dela. Experi¬ 
mente com diversos caracteres gráfi¬ 
cos até achar uma moldura bem bo¬ 
nita: 

Resposta: 


3. Vamos fazer um programa para 


desenhar uma tapeçaria na tela. É 
muito fácil: 

Coloque em primeiro lugar uma ins¬ 
trução PRINT contendo 7 ou 9 blocos 
gráficos diversos, um grudado no ou¬ 
tro (entre aspas). Depois coloque 
uma instrução GOTO para repetir 
este PRINT. 

Pressione RUN e aprecie o resul¬ 
tado! 


Coloque diferentes combinações de 
blocos gráficos para testar qual vai 
ser a tapeçaria mais bonita. Escreva 
o programa que produziu a mais bo¬ 
nita aqui: 



mu 


7.1. 0 que significa para o computa- 

7.5. Modifique o programa anterior 

4= I 

dor quando ele está mostrando na 

para colocar a cabeça do palhaço 


tela os seguintes cursores: 

no lado direito da tela (dica: use a 


função TAB em todas as linhas 

=> I 

K 

PRINT). 


L 


GRAPHICS I 

F 


FUNCTION I 


7.6. Por que eu devo fazer o cursor 

SHIFT 1 

G 

voltar a ser L antes de digitar as as¬ 
pas no final de uma instrução 


7.2. Defina o que quer dizer: 

PRINT com blocos gráficos? 

BREAK O 

MODO GRÁFICO 


SPACE 1 

MODO INVERSO 

7.7. Vamos rememorar. Para que 

CONT 1 

7.3. Que teclas devemos apertar pa- 

servem as teclas: 

E para que servem as instruções e 

ra conseguir digitar os blocos gráfi- 

NEW LINE 

RUBOUT 

funções (dê um exemplo de cada). 

cos (cursor G)? 

PRINT 1 

7.4. Faça um programa para dese- 

RUN 

TAB I 

nhar na tela a figura de uma cabe- 



ça de palhaço dando risada. 

NEW 

SQR I 
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sando Variáveis 
dentro de um 
Programa 


Agora que você percebeu a utilida¬ 
de das variáveis para armazenar da¬ 
dos e resultados intermediários, va¬ 
mos ver alguns exemplos com progra 
mas. Digite no computador cada um 
dos programas abaixo, e veja o resul¬ 
tado. Procure substituir alguns valo¬ 
res para obter diferentes resultados. 

1. Dados dois números, A e B, faça 
um programa para obter o resultado 
da soma, subtração, multiplicação e 
divisão entre os dois. 

SOLUÇÃO 

Note que das linhas 30 a 60 existe 
uma diferença entre o que está entre 
aspas (é uma mensagem) e o que es¬ 
tá fora das aspas (é uma expressão). 

O que é mensagem é mostrado na te¬ 
la exatamente como está. O que é ex¬ 
pressão é usado para calcular. 

10LET A=25 
20 LET B= 12 
30 PRINT"A + B =";A+B 
40 PRINT'A - B =";A—B 
50 PRINT"A x B =";A*B 
60 PRINT"A / B =";A/B 

Pergunta: Qual é a vantagem de 
se colocar primeiro os dados (no ca¬ 
so, 25 e 12) dentro de variáveis i 1 

2. Dados o lado (L) e a altura (A) de 
um retângulo, faça um programa pa¬ 
ra calcular a área e o comprimento 
da diagonal. 


pressione simultaneamente SHIFT e 
NEW LINE, depois pressione a tecia 

da letra H. 

10 LET L= 10 

90 T FT A=5 a 

30 PRINTTROBLEMA DO RETÂN¬ 
GULO" 

40 PRINT” = = = = = = = = = - 

60 PRINrO COMPRIMENTO DO LA¬ 
DO =";L 

70 PRINT"A ALTURA =";A 
80 PRINT 

90 LET ÁREA = L* A 

100 LET DIAG = SQR L**2 + A**2 
110 PRINT"ÁREA =";ÁREA 
120 PRINTDIAGONAL = ";DIAG 
Pergunta: As linhas 90 e 100 são ne¬ 
cessárias? Por quê? 





aixinhas 
para Nomes 



1. Refaça os seguintes exercícios do 
capítulo 3. usando variáveis: 

1.1. A altura do King Kong é igu 
a 37 pés e 8 polegadas. Quantas po¬ 
legadas e quantos metros ele tinha 

de altura? 

Resposta: 


1 2 O jogador Zico tinha 300 000 dó¬ 
lares no banco. Depois recebeu co¬ 
mo luvas metade de 456 784 dó ares. 
menos o imposto de 40 000 dólares 
Quantos cruzeiros ele tera no to a 
(faça a conta como se o dólar vales¬ 
se 2 800 cruzeiros. Repita o calculo 
como se o dólar valesse 6 000 cruzei- 

ros). 

Resposta: 


1.3. Um carro tinha 25.6 litros de 
combustível no tanque. Depois de 
uma viagem ficou apenas com_ 17.J. 
Quantos litros foram gastos? Quan¬ 
to custou a viagem, se o líri° 9°' 
solina custa 1.000 cruzeiros? Quanto 
ele economizaria em litros e cruzei¬ 
ros se o carro gastasse 20% menos? 
Resposta: 


Até agora vimos que a memória 
do computador pode ser usada para 
armazenar números. Esses numeros 
podem ser o resultado de uma ex- 
pressão matemática. 

LETC = 23 + (25.7-14.2V13 

Neste exemplo, C é o nome da cai¬ 
xinha" ou memória que receberá o 
resultado da conta, à direita do sinal 
de igualdade. 

Outra maneira de colocar um va¬ 
lor numérico em uma variável é por 
meio de uma constante: 

LET PI = 3.1415 

Neste exemplo, PI é o nome da va¬ 
riável. O número à direita do sinal 
de igualdade não contém nenhuma 
operação matemática ou nome de va¬ 
riável, por isso é chamado de cons¬ 
tante. , ^ 

Mas não são só numeros que o 

computador consegue arrna T z £E?^ c v 
PODEMOS GUARDAR LETO^jB ,E 
OUTROS CARACTERES NA MEMÓ¬ 
RIA DO COMPUTADOR 
Para isto, o BASIC do seu computa- 
dor nos permite usar caixinhas es 
peciais, que servem para guardar na 
memória conjuntos de letras e de ou¬ 
tros caracteres. _ _ . 

UM CONJUNTO DE CARACTERES 

É CHAMADO DE CADEIA 

Outro nome muito usado para des¬ 
crever um conjunto de caracteres é 
"string", uma palavra inglesa que 

significa "cordão". _ 

Você já viu antes cadeias de carac¬ 
teres, lembra-se? 

Por exemplo, no comando: 

PRINT "RENATO" ' 

Neste caso, a cadeia é uma pala¬ 
vra formada de 6 caracteres. 


SOLUÇÃO 

Temos que usár as fórmulas corres¬ 
pondentes ao cálculo da área e da 
diagonal de um retângulo (veja a n- 

9U Em BASIC, a exponenciação é obti¬ 
da com o operador ** (ele tem uma 
tecla especial: não se pode apertaf a 
tecla * duas vezes, pois haverá erro 
no resultado. A tecla * * fica acima 
da letra H). A raiz quadrada é obtida 
com a função SQR: para digitá-la, 


1.4. A idade de uma pessoa é igual 
a Ã anos, M meses e D dias. Calcule 
quantos meses, dias e horas esta 
pessoa já viveu, aproximadamente. 
Resposta: 


R, E, N, A, T e O. 

Mas uma cadeia pode incluir outros 
rnmrtprfis Pode ser uma frase: 

PRINT "O BRASIL TEM 120 MI¬ 
LHÕES DE HABITANTES" 
ou, então, pode ser uma mistura de 

caracteres: 

PRINT "+% *** =8" 
ou caracteres gráficos: 

PRINT 
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Como podemos dizer ao computa¬ 
dor que queremos armazenar uma 
cadeia de caracteres em uma variá¬ 
vel da memória? 

Preste atenção: 

LET N$ = "RENATO" 

Este comando LET está dizendo pa¬ 
ra o computador: 

GUARDE A CADEIA DE CARACTE- 
RES (ENTRE ASPAS) NA VARIÁVEL 
CHAMADA N$ 

O sinal de cruzeiro ($), também 
chamado de cifrão, serve para indi¬ 
car ao computador que a variável é 
do tipo alfabético (ou seja, deverá ar¬ 
mazenar letras e outros caracteres). 

Note que, se você esquecer de pôr 
o sinal $ depois do nome da variável, 
o computador vai "estrilar"! 

Experimente digitar no compu¬ 
tador: 

LET N = "RENATO" 

Veja o que aparece na tela: 


r - 


V_ 

_ J 


Experimente fazer o mesmo, na for¬ 
ma de um programa, assim: 

10 LET N = "RENATO" 
e depois digite RUN. O que acontece? 


memória (as caixinhas mostradas 
nos desenhos) para armazenar nú¬ 
meros. 

Para armazenar nomes, a coisa é 
um pouco mais complicada, mas tam¬ 
bém é fácil de ser entendida. 

Vejamos: a memória do microcom¬ 
putador é feita de tal forma que com¬ 
porta apenas um caractere (uma le¬ 
tra, por exemplo) em cada caixinha. 
Assim, o nome RENATO seria guar¬ 
dado em 6 caixinhas agrupadas que 
receberiam a "etiqueta" (nome da va¬ 
riável) N$. 

O computador permite que tenha¬ 
mos até 255 caixinhas agrupadas pa¬ 
ra guardar uma cadeia de caracte¬ 
res, todas recebendo um único nome 
de variável. 

Assim, podemos armazenar ca¬ 
deias de caracteres de qualquer com¬ 
primento (até um máximo de 255), 
sem nos preocupar com quantas cai¬ 
xinhas o computador vai usar. Isto 
ele faz automaticamente. 

LET A$ = "N ABUCODONOSOR 


ERA UM REI ASSÍRIO CRUDELÍS¬ 
SIMO" 

LET B$ ="OLA!" 

LET C$ =" 

(O que diz este último comando?) 

O IMPORTANTE É COLOCARMOS 
OS CARACTERES ENTRE ASPAS 

Para descobrir que a cadeia de ca¬ 
racteres está armazenada em uma 
variável alfabética, podemos usar o 
comando PRINT. Por exemplo, digite 
o seguinte programa no computador: 

10 LET NOMES ="MICKEY MOUSE" 

20 PRINT NOMES$;"ERA UM RATO!" 

Veja o que vai acontecer, se você 
der o comando RUN: 

Vamos entender juntos este pro¬ 
grama, linha a linha: 

Linha 10 4> armazena a constante 
"MICKEY MOUSE" na variável 
NOMES 

Linha 20 Amostra na tela o conteú¬ 
do de NOMES, seguido da constante 
alfabética "ERA UM RATO!", ambos 
na mesma linha. 



A mensagem de erro está indican¬ 
do que os tipos não combinam, ou 
seja: 

- ,a variável à esquerda de = é do ti¬ 
po numérico 

• a constante à direita de = é do tipo 
alfabético 

O mesmo erro ocorreria se você 
tentasse o contrário: 

10 LET N$ = 123 
O que está errado nesta linha? 



omo o 

Computador 
Armazena 
um Nome? 


No começo deste capítulo, vimos 
que o computador usa unidades de 





a 

TI 


1. Escreva abaixo o comando que 
você daria ao computador, para ar¬ 
mazenar o nome do seu time de fu¬ 
tebol na variável chamada TIMES. 

2. O que o computador mostrará na 
tela com este programa? 

10 LET FLORS ="ROSA" 

20 PRINT"UMA"; FLOR$;"É UMA"; 
FLORS 



E o que vai acontecer, se eu trocar 
a linha 10 por: 

10 LET FLORS = "MARGARIDA" 


3. E este programa, o que vai mos¬ 
trar na tela? 

10 LET PLANETAS = "MARTE" 

20 LET PLANETAS = "JÚPITER" 

30 PRINT PLANETAS 
Explique por quê: 


4. Agora diga o que aparecerá na te¬ 
la com este programa: 

10 LET COMIDAS ="ARROZ” 

20 LET ALMOÇOS = "COMIDAS 
30 PRINT"NO ALMOÇO VAI TER"; 
ALMOÇOS 
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N úmeros e 

NOMES PELO 
TECLADO 


Até agora, aprendemos a armaze¬ 
nar números (e nomes), dentro de um 
programa, usando o comando LET. 

Vamos fazer, por exemplo, um pro¬ 
grama que armazene a idade e o no¬ 
me de uma pessoa, em duas variá¬ 
veis, e depois calcule quantos dias 
ela viveu, aproximadamente. 

Este programa poderia ser assim: 

10 LET ANOS = 14 

20 LET NOMES = "ROBERTO" 

30 PRINT NOME$;"VTVEU MAIS 
DE"; ANOS * 365;"DLAS" 

Depois de digitar este programa no 
computador: 


(10 LET ANOS = 14 
I 20 LET NOMES =“ROBERTO” 


|30 PRINT NOME$;‘‘VIVEU QDj 


Damos o comando RUN, para ver 
o resultado: 


(ROBERTOVIVEU MAIS DE 
! 5110 DIAS 


O problema é pequeno, é verda¬ 
de, mas, se a classe toda e todos os 
amigos do seu irmãozinho quiserem 
fazer a mesma coisa, vai dar muito 
trabalho. Deve haver um jeito mais 
fácil do que ficar sempre mexendo 
no programa! 

Felizmente, este jeito existe: é o co¬ 
mando INPUT. 

Este comando substitui o LET, per¬ 
mitindo que um valor (número ou no¬ 
me) seja fornecido ao programa pelo 
teclado, sem haver necessidade de 
modificar o programa. 

Preste bem atenção como o progra¬ 
ma acima seria modificado: 

10 INPUT ANOS 
20 INPUT NOMES 

A linha 30 ficaria igual: 


10 INPUT ANOS 
20 INPUT NOMES 
30 PRINT NOMES; “ VIVEU 
MAIS DE ”; ANOS *365; 

“ DIAS ” 


b 


O comando INPUT na linha 10 sig¬ 
nifica a seguinte ordem para o com¬ 
putador: 

ESPERE ALGUÉM ESCREVER UM 
NÚMERO NO TECLADO, E GUAR¬ 
DE-O NA VARIÁVEL ANOS 


O r-nmrrnHn IlSJPI IT 


líiaUrr OD 


nifica: 

ESPERE ALGUÉM ESCREVER UM 
NOME NO TECLADO, E GUARDE-O 
NA VARIÁVEL NOMES 
Vamos ver agora qual o resultado 
deste programa. Digite RUN: 


i 0/30 


O programa é muito interessante, 
mas há um problema. 

O que devemos fazer se quiser¬ 
mos colocar a idade e o nome de 
uma outra pessoa para fazer o mes¬ 
mo cálculo? 

Você já sabe a resposta: 

SEM ALTERAR A UNHA 30, DIGITA¬ 
MOS DE NOVO AS LINHAS 10 E 20 

Assim, por exemplo: 

10 LET ANOS = 37 

20 LET NOMES ="0 PROFESSOR 

RENATO" 

O programa agora vai mostrar na 
tela: 


O PROFESSOR RENATO 
VIVEU MAIS DE 1305 DIAS 



O computador parou e mostrou na 
linha de baixo o cursor \h\ 

Isto não quer dizer que o programa 
não funcionou (senão apareceria 
uma mensagem de erro, ou o cursor 
K), significa que o computador encon¬ 
trou a linha 10, e está obedecendo ao 
comando INPUT, ou seja, parou para 
que você digite um número. 

Tudo o que você digitar vai apare¬ 
cer na linha onde está o cursor [T] 



Depois de ter digitado o número 
que deseja, pressione NEW UNE ou 
ENTER. 

Note que aparece de novo o cur¬ 
sor L na linha de baixo, agora entre 
aspas. 

Isto significa que o computador de¬ 
ve estar esperando a entrada de 
uma cadeia de caracteres, na linha 
20 do programa. Digite um nome: 



e pressione a tecla NEW UNE. Agora 
o programa guardou o nome na va¬ 
riável correspondente, e vai para a li¬ 
nha 30, fazendo o cálculo e mostran¬ 
do o resultado: 



Entendeu? 

Para repetir o programa, basta di¬ 
gitar de novo a tecla RUN, e tudo se 
repete. Tente colocar várias idades e 
nomes para ver o que acontece. 

Melhor ainda, adicione ao progra¬ 
ma acima a linha: 

40 GOTO 10 

Desta forma, o programa ficará se 
repetindo indefinidamente. Depois 
de entrar a idade e o nome, ele vai 
mostrar o resultado na tela, e pedir 
nova idade, e assim por diante: 

ARNALDO VIVEU MAIS DE 4380 
DIAS 

JOAQUIM VIVEU MAIS DE 5110 
DIAS 

FERNANDA VIVEU MAIS DE 6570 
DIAS 

O programa só vai parar quando a 
tela ficar cheia. Neste caso, aparece 
a seguinte mensagem, na última li¬ 
nha da tela: 

5/30 

que quer dizer: PAREI COM A TELA 
CHEIA NA UNHA 30 
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Para continuar o programa, basta 
pressionar a tecla marcada com o co¬ 
mando CONT (continue), que limpa 
a tela e reinicia tudo de novo na pri¬ 
meira linha. 

Como parar o programa antes que 
a tela fique cheia? 

Experimente pressionar a tecla 
BREAK. 

Não funciona quando o cursor [E] 
está aparecendo, certo? 

0 único jeito é pressionar a tecla 
marcada STOP, e, em seguida, a te¬ 
cla NEW UNE. 

Se o cursor [E] estiver entre aspas, 
só pressionar STOP não resolverá. 

E necessário antes apagar as as¬ 
pas da esquerda, para que o compu¬ 
tador não pense que o STOP é ape¬ 
nas uma cadeia de caracteres. 

D ialogando 

com o 

Computador 


Os comandos INPUT e PR1NT permi¬ 
tem escrever programas de CONVER¬ 
SAÇÃO, ou seja, uma espécie de 
"diálogo" entre o computador e o 
usuário. 

Veja, por exemplo, este simpático 
programa: 

10 PRINTOLA, EU SOU O MICRO¬ 
COMPUTADOR DE QUE MEU DONO 
TANTO FALA" 

20PRINT 

30 PRINTQUAL E O SEU NOME?" 

40 INPUT N$ 

50CLS 

60 PRINT"MUITO PRAZER,"; N$ 

70 PRINTTENHO CERTEZA DE QUE 
VOCÊ VAI GOSTAR DE MIM" 

Na tela o diálogo apareceria assim: 


r 


OLA, EU SOU O 
MICROCOMPUTADOR DE 
QUE MEU DONO TANTO FALA 


1 


QUAL E O SEU NOME? 


"MARCELO U” 


FmUITO PRAZER, MARCELoTl 
I TENHO CERTEZA QUE VOCE 
VAI GOSTAR DE MIM I 


L 0/70 _J 


Você pode imaginar muitos "diálo¬ 
gos" como este. 

Experimente! 



STRUTURANDO 
O PROGRAMA 


Sabendo os comandos INPUT, LET 
e PRINT, você já consegue fazer mui¬ 
tas coisas com o computador. Todos 
os problemas que têm a seguinte for¬ 
ma: 

— fornecer dados conhecidos para 
um problema 

— procurar o resultado a partir 
destes dados, usando uma ou mais 
fórmulas 

— mostrar o resultado 

podem ser programados facilmente 
em BASIC, usando o computador. 

Nesta seção, vamos aprender co¬ 
mo estruturar um programa deste ti¬ 
po, e vamos programar vários exem-' 
pios e exercícios, para fixar bem a 
maneira de fazê-lo. 

Você poderá aplicar a mesma re¬ 
ceita para programas que você mes¬ 
mo vai bolar depois. 



comando 

REM 


Uma coisa muito importante para 
quem deseja aprender a fazer bons 
programas é a documentação. O 
que é isso? 

À medida que os programas que 
você faz vão ficando cada vez mais 
compridos, começa a ficar difícil en¬ 
tendê-los. Mesmo que tenha sido vo¬ 
cê que os escreveu, depois de alguns 
meses pode acontecer que não se 
lembre mais para que servem algu¬ 
mas partes do programa. 

A linguagem BASIC tem um co¬ 
mando cuja única função é ajudar o 
programador a colocar explicações 
em linguagem corrente dentro de um 
programa. Essas explicações são cha¬ 
madas de DOCUMENTAÇÃO INTER¬ 
NA DE UM PROGRAMA. 

Esse comando se chama REM. 

REM significa REMARK, em inglês, 
que quer dizer COMENTÁRIO. 

O comando REM não tem nenhu¬ 
ma outra serventia além de colocar li¬ 
nhas escritas, com alguma explica¬ 
ção ou comentário, dentro de um pro¬ 
grama. Portanto, ele não é um co¬ 
mando EXECUTÁVEL, ou seja, não é 
executado pelo computador, como os 
comandos LET e PRINT, por exemplo. 


O comando REM é escrito da se¬ 
guinte maneira: 

23 REM COMENTÁRIO 

Depois do comando REM, na mes¬ 
ma linha, podemos colocar o que qui¬ 
sermos (inclusive caracteres gráficos). 

O comando REM é útil para muita 
coisa: 

— identificar o nome do progra¬ 
ma, quem o escreveu, em que data 
etc. Esta parte do programa geral¬ 
mente é colocada no começo, e é 
chamada de CABEÇALHO DO PRO¬ 
GRAMA. Quando você tiver muitos 
programas gravados em fita, você sa¬ 
berá como esse cabeçalho é necessá¬ 
rio para evitar confusões... 

— verificar para que servem as va¬ 
riáveis dentro do programa 

— 'identificar as diferentes seções 
de um programa 

—. colocar linhas de separação en¬ 
tre as partes de um programa 

Todos esses recursos são úteis para 
facilitar a leitura e o entendimento de 
um programa, tanto para você como 
para os outros. Você entenderá me¬ 
lhor a utilização do REM no progra¬ 
ma abaixo: 


PROBLEMA 

Fazer um programa para converter 
dólares em cruzeiros, à taxa do dia: 

SOLUÇÃO 

A maneira mais fácil e direta de fa¬ 
zer este programa seria: 

20 INPUT TAXA 

40 INPUT VALOR 

60 LET CRUZ = TAXA * VALOR 

80 PRINT CRUZ 

90 GOTO 40 

Como você percebe, o programa 
solicita apenas uma vez, na linha 20, 
a taxa atual do dólar (e a armazena 
na variável TAXA). Depois solicita a 
entrada do valor em cruzeiros (e a ar¬ 
mazena na variável VALOR, na li¬ 
nha 40). Finalmente, calcula, na li¬ 
nha 60, e mostra o resultado, em cru¬ 
zeiros, na linha 80. A linha 90 faz o 
programa perguntar o novo valor em 
cruzeiros, para ser convertido, e as¬ 
sim por diante, até pressionarmos a 
tecla STOP. 

Este programa é bem simples, más 
tem as três partes fundamentais de 
qualquer programa de resolução de 
problemas: 

— ENTRADA (linhas 20 e 40) 

— CÁLCULO (linha 60) 

— SAÍDA (linha 80) 

Note que a pessoa que for usá-lo 
precisa saber para que ele serve, 
pois o programa não dá nenhuma 
"dica" sobre isto, sobre quj valores 
devem ter entrada, e quando, etc. 

Por isso, um programa realmente 
útil tem comandos com mensagens 
de instruções para o usuário, e verifi¬ 
cação dos resultados. Veja como fica 
muito melhor assim: 
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10 PRINTTAXA ATUAL DO DOLAR? 

20 INPUT TAXA 

30 PRINT"VALOR EM DÓLARES? 

40 INPUT VALOR 

60 LET CRUZ = TAXA * VALOR „ 

80 PRINT'VALOR EM CRUZEIROS = ; 

CRUZ 

90 GOTO 30 1U , 

Veja que o programa melhora bas¬ 
tante, pois informa ao usuário que va¬ 
lores ele tem que digitar, e depois ex¬ 
prime o resultado com uma mensa¬ 
gem de esclarecimento. Na tela fica 

assim: 

para completar o nosso programa, 
vamos colocar todos os comentários 
com os comandos REM, documentan¬ 
do-o adequadamente: 


de que precisamos lembrar, quando 
formos usá-lo: 

1. O comando REM não é uma or¬ 
dem para o computador. Tudo o que 
estiver escrito nele (inclusive coman¬ 
dos válidos em BASIC) fica como que 
invisível para o computador e visível 
só para você. 

2. Os comandos REM ocupam espa¬ 
ço de memória no computador. Se o 
programa for muito longo e não cou¬ 


ber na memória, é necessário limitar 
o número de REMs ou tirá-los. 

3. Se você vai desenvolver um pro¬ 
grama muito longo, tome como hábi¬ 
to ir escrevendo os comentários REM 
em seu interior à medida que vai di¬ 
gitando as linhas de comandos. 

4. Os comentários REM não são a 
única forma de documentação. De¬ 
pois veremos outras. 


T E $ T 1= 


1 REM ********************* 

2 REM * PROGRAMA CONVERTE * I COISSA 

3 REM * R.SABBATINI * VimÁVTT . ••••• ™ 

4 REM* 12. SET. 84* rnwRTANTE.. 4DADOS 

SREM*** variavel numérica . 

I - E “ DE DADOS “S, 

10 PRINTTAXA ATUAL EO DÓLAR? (Explique por que, para cada linha 

oi PRINT TAXA 8.2. Qual é a vanta 9 em P rincipal de * = 125 

30 pSnt valor em dólares?" se u _ tl A 1 j^ ? variáveis em um pro9ra ‘ 20 let b=25 

40 INPUT VALOR ma BAblu ' . 30 LET C=A 

45 PRINT VALOR . . 40 PRINT A,B,C 

54 REM , .’. 50 LET C=A+B 

50 REM *** CÁLCULO *** . 60 LET D=A 

55 REM 60 LET D=D+1 

60 LET CRUZ = TAXA * VALOR ^ servem qs comandos: 70 PRINT A.C.D 

65 REM *** RESULTADO *** LET _. . 

66 REM “ST . . 8.7. Escreva um programa que pe 

70 PRINT „ «EM . gunte o seu nome e depois encha 

80 PRINTVALOR EM CRUZEIROS = ; tela com ele. 

Miram ?n 8.4. Mar q ue com V s ® a 

Note que íoram adicionadas QS Se ‘ f ( r ) o e comand a o jE^int^pretado e 8.8. Faça um programa para entra- 

ÍIíSí-- ESSES- íp-s-* 

para entrada de números e nomes “mando INPUT em um 

( ) quando o computador encontra se us raRIC? 

uin comando INPUT, interrompe o programa em BAS 

processamento de um programa e 
fica esperando uma entrada 
( ) O comando INPUT solicita dados 
pelo teclado 

() o comando LET serve apenas pa¬ 
ra fazer cálculos 


cia 


O programa acima é bastante legí¬ 
vel e de fácil modificação, mesmo 
por quem não o desenvolveu. As se¬ 
ções de entrada, cálculo e saída sao 
facilmente identificáveis. 



onclusões 
sobre o REM 


8.10. Cite três utilidades do coman¬ 
do REM em um programa: 

1. 1 
2 . 

3. 


O comando REM é muito útil, como 

você viu. . 

Entretanto existem algumas coisas 


8.5. Assinale quais os nomes de va¬ 
riáveis que são corretos^ (C) e erra¬ 
dos (E) e explique por quê: 

TK 85 
1983 

ABCD123 
COISAS 


8 11 Quais são as três partes princi¬ 
pais de um programa para resolver 
um problema de cálculo? 

1 . 

2 . 

3. 
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Mj OLUÇÃO DOS PROGRAMAS PROPOSTOS 


Abaixo, a solução dos programas propostos no capítulo 5 deste livro. 


TESTE 


PÁGINA 21 

6.12. Faça um programa para colocar na 
tela uma lista numerada de três times de 
futebol. Por exemplo: 

1 PALMEIRAS 

2 BOTAFOGO 


6.13. Faça um programa para colocar um 
sinal + em cada canto da tela (dica: use o 
comando PRINT AT). 

Resposta: 



10 PRINT AT 1,1, "4 

Resposta: 

20 PRINT AT 1,31, " 


30 PRINT AT 20,1, " 

10 PRINT "1", "PALMEIRAS" 

40 PRINT AT 20,31, 

20 PRINT "2", "BOTAFOGO" 

50 END 

30 PRINT "3", "FLAMENGO" 



40 STOP 



PAGINA 23 

1. Faça um programa para colocar na tela 
as palavras TIC e TAC, uma em cada li¬ 
nha, até encher toda a tela. 


2. Modifique o programa acima para es¬ 
crever em toda a tela, mas com as pala¬ 
vras TIC e TAC unidas. 


Resposta: 

Resposta: 

10 PRINT "TIC" 

10 PRINT "TIC" 

20 PRINT "TAC" 

20 PRINT "TAC" 

30 GOTO 10 

30 GOTO 10 

T li 

S T li 

PÁGINA 30 

• 

8.7. Escreva um programa que pergunte o 

60 REM 

seu nome, e depois encha a tela com ele. 

65 PRINT "CALCULO DE MEDIA" 
68 PRINT 

Resposta: 

70 PRINT "ENTRE 3 NOTAS:" 

80 INPUT NI 

10 PRINT "QUAL É O SEU NOME?" 

90 PRINT "NOTA 1 = NI 

20 INPUT NOME $ 

100 INPUT N2 

30 CLS 

110 PRINT "NOTA 2 = "; N2 

40 PRINT NOME $; " "; 

115 INPUT N3 

50 GOTO 40 

120 PRINT "NOTA 3" = ; N3 

130 REM 

8.8. Faça um programa para entrada de 

140 REM *** CALCULA SOMA E 

três notas pelo teclado, e depois calcule a 

MEDIA *** 

soma e a média simples das notas. Colo- 

150 REM 

que também o nome do aluno. 

160 LET SOMA = NI 4 N2 + N3 
170 LET MEDIA = SOMA/3 

Resposta: 

180 REM 

190 REM * * * MOSTRA RESULTADO 

ltí REM ******************** 

200 REM 

20 REM * MEDIA DE 3 NOTAS ♦ 

210 PRINT 

30 REM *♦*♦♦**♦♦..********* 

220 PRINT "SOMA = SOMA 

40 REM 

230 PRINT "MEDIA = MEDIA 

50 REM * * * ENTRADA DAS NOTAS * * * 

240 STOP 
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Exemplo de execução: 


m 


CALCULO DA MEDIA ENTRE 
TRES NOTAS: 

NOTA 1 = 8 


CALCULO DA MEDIA ENTRE 
TRES NOTAS: 


■ 1 1U KJ I1V/ ■ f-iw . 1 

5 

NOTA 1 = 8 

NOTA 2 = 9 

P J 


le J 




^CALCULO DA MEDIA ENTRE^ 
TRES NOTAS: 

6 

'calculo da media entre! 

TRES NOTAS: 

NOTA 1 = 8 

NOTA 2 = 9 



P J 

digite a 1 8 nota 


digite a 3 8 nota 


CALCULO DA MEDIA ENTRE 
TRES NOTAS: 

NOTA 1 = 8 
NOTA 2 = 9 
NOTA 3 = 4 


P 



CALCULO DA MEDIA ENTRE 
TRES NOTAS 
NOTA 1 = 8 
NOTA 2 = 9 
NOTA 3 = 4 
SOMA = 21 
MEDIA = 7 

9/24Ò 


digite a 2. 8 nota 


resultados 
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1 ABELA DE CODIGOS INDICADORES DE ERROS 

Apresentamos abaixo uma tabela completa com to¬ 
dos os códigos indicadores de erros que podem apa¬ 
recer durante a digitação ou a execução de um pro¬ 
grama. Lembre-se que este código sempre aparece na 
linha de baixo da tela, mostrando também o número da 
linha em que ele ocorreu. Exemplo: 

5/15 

Significa: ocorreu o erro número 5, na linha 15. 

O erro número 5 significa: não há mais espaço na 
tela para continuar a listagem. Na coluna SITUA¬ 
ÇÕES você poderá ver com quais comandos pode 
ocorrer este erro. No nosso exemplo, pode ocorrer 
com PRINT, LIST etc. 

Algumas vezes, a tabela também indica o que fazer 
para sair do erro. No caso do erro número 5, você de¬ 
verá digitar o comando CONT para limpar a tela. 


CÓDIGO 

SIGNIFICADO 

SITUAÇÕES 

0 

Não houve erro. 

Execução bem sucedida ou salto 
para uma linha de maior número 
que qualquer outra existente. 

Qualquer 

1 

A variável de controle não existe 
(não foi estabelecida por uma 
instrução FOR), mas existe uma 
outra variável com o mesmo no¬ 
me. 

NEXT 

2 

A linha indicada usa uma variá- 
vél não definida previamente por 
uma instrução LET ou INPUT. 

Para matrizes isso acontecerá se 
estas forem usadas antes de ser 
dimensionadas pela instrução 

DIM. E, para uma variável de 
controle, isso ocorrerá caso ela 
for usada antes de ter sido defini¬ 
da como variável de controle por 
uma instrução FOR, e se-não 
houver nenhuma variável sim¬ 
ples com o mesmo nome. 

Qualquer 

3 

A matriz não contém o elemento 
especificado. 

Caso o índice esteja fora de faixa 
(isto é, seja negativo ou acima de 
65535), ocorrerá o erro B. 

Matrizes 


4 

Espaço insuficiente na memória. 
Observe que o número de linha 
na indicação (após o /) poderá 
estar incompleto na tela, devido 
à falta de memória; assim, por 
exemplo, 4/20 poderá surgir co¬ 
mo 4/2. 

LET, INPUT, 

DIM, PRINT, 

LIST, PLOT, 
UNPLOT, FOR, 
GOSUB. 

Às vezes, durante 
a avaliação de 
funções. 












CÓDIGO 

SIGNIFICADO _1 

SITUAÇÕES 

5 * . 

Não há mais espaço na tela. 

CONT criará espaço, limpando a 
tela. _ 1 

PRINT, LIST, 

PLOT, UNPLOT. 

1 6 

Resultado fora dos limites do 
computador. Os cálculos produ¬ 
ziram um número superior a 

10 38 . J 

Qualguer cálculo 
aritmético. 

L--4- 

7 

RETURN sem um GOSUB cor¬ 
respondente. ' 

RETURN I 

1 8 

Você tentou um comando INPUT 
não permitido. 

INPUT 

1 9 1 

Instrução STOP executada. 

CONT fará a execução começa 
da próxima linha. 

STOP I 

Ã 

Argumento inválido para certas 
funções. _ I 

SQR, LN, ASN, 

ACS | 

I B 

1 K 

Número inteiro fora da faixa 
(—655 34 a 65535). 

RUN.RAND, 

POKE, DIM, 

GOTO, GOSUB, 
LIST, PAUSE, 

PLOT, UNPLOT, 
CHR$, PEEK, 

USR. Quando de 
um acesso a uma 
matriz 

1 C 

O texto do argumento (de string) 
de VAL não forma uma expres¬ 
são numérica válida. 

1 VAL 1 

PÓ 

Programa interrompido por: 

1 . Tecla BREAK pressionada ou 

2. Um STOP foi digitado no te¬ 
clado. 

Ao fim de gual- 
quer instrução ou 
em LOAD, SAVE, 
PRINT, LIST ou 
COPY. _ 1 

|E 

Não utilizado 


[f 

O nome fornecido para o pro¬ 
grama está em branco. 













RESUMO 


Vamos rever agora todos os comandos e instruções que você aprendeu até aqui, 
em ordem alfabética, para facilitar o seu trabalho posterior. 

Na relação abaixo, 

V representa uma variável; 

n representa expressão numérica que é arrendondada para o número inteiro mais 
próximo; 

e representa uma expressão. 

Note que expressões arbitrárias são permitidas em qualquer lugar, exceto para nú¬ 
mero de linha no início da instrução. 

Todas as instruções, exceto INPUT, podem ser usadas tanto em linhas imediatas co¬ 
mo em linhas de comando. 


CONT 

Continua a execução após um BREAK ou STOP . Normalmente é di¬ 
gitado pelo teclado (não é colocado dentro de um programa). 

CLS 

Limpa a tela. 

GOTOn 

Salta para linha n (ou, se não existe, para a que vem depois dela). 
Exemplo: GOTO 20 

INPUT V 

Pára e espera que seja feita uma entrada de dados. 

INPUT não pode ser usado diretamente pelo teclado, pois ocorrerá 
erro 8. 

Se o primeiro caractere em uma linha de INPUT é STOP, o progra¬ 
ma pára com denotação D. Exemplo: INPUT A$. 

LET V=e 

Atribui o valor e à variável v. LET não pode ser omitido. Uma variá¬ 
vel simples é indefinida, até figurar em uma instrução LET ou 
INPUT. 

Exemplo: 

LET X = A + 25/3 

LIST 

Lista o programa na tela, começando na 1? linha. 

LIST n 

Lista o programa na tela, começando na linha n. Ocorrem erros 4 ou 
5, se a listagem for muito longa para a tela. Exemplo: LIST 20 

NEW 

Apaga o programa e todas as variáveis, para poder colocar outro na 
memória. 

PRINT 

9 

Mostra algo na tela (o que estiver indicado depois da palavra 
PRINT), e que é chamado item de impressão. 

O item pode ser: 

(1) Vazio, isto é, nada aparece depois. Neste caso é mostrada na tela 
uma linha em branco. Exemplo: PRINT 

(2) Uma expressão numérica. É mostrado o resultado da expressão. 
Exemplo: PRINT 25 + 14 

O resultado é impresso em notação decimal ordinária de até 8 dígitos 
significativos e sem zeros após o ponto decimal. Um ponto decimal 
no início é sempre seguido de um zero. 

(3) Uma expressão entre aspas. É mostrado exatamente o que apare¬ 
ce. Exemplo: PRINT "BOM DIA", 

(4) AT m,n A posição de impressão é mudada para linha.m (con¬ 
tando do topo), coluna n (contando da esquerda). Se Iml = 22 ou 23, 
resulta erro 5 

(5) TAB n 
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COMPUTADOR 
TAMBÉM SABE 
DECIDIR 


Até agora, você aprendeu como 
programar o computador para: 


Programa 


Comando 


entrada de dados: INPUT 

cáculos: LET 

resultados na tela: PRINT 


Estes comandos são muito úteis 
para fazer uma infinidade dè 
programas. Com elas, podemos 
transformar o computador em uma 
sofisticada calculadora 
matemática, capaz de resolver 
problemas de cálculo de muitos 
tipos. 

Entretanto, o computador pode 
fazer muito mais do que isso. Ele 
pode, por exemplo, aprender a 
tomar decisões sozinho! 

0 comando que permite fazer 
isto em BASIC se denomina IF. 

Em inglês, IF significa SE (ou seja, 
expressa uma determinada 
condicãó). Por exemplo: 

300 IF X = 0 THEN PRINT 
"O NUMERO E IGUAL A ZERO" 


Este comando está dando a 
seguinte ordem para o 
computador: 

SE o número X for igual a 0, 
ENTÃO imprima a mensagem. 


A palavra THEN significa 
ENTÃO, em inglês, e é sempre 
usada em conjunto com o IF. 


O comando IF manda o 
computador tomar uma decisão 
muito simples. Ele ordena o 
computador a fazer uma 
determinada operação, se a 
condição testada for verdadeira. 

No exemplo acima, se o número 
contido na variável X for igual a 


0, a condição testada (X = 0) 
será verdadeira, e o computador 
mostrará na tela a mensagem: 

O NUMERO E IGUAL A ZERO 

E se a condição não for 
verdadeira? 

Então o computador não 
obedecerá a instrução PRINT na 
linha 300 e passará para a linha 
seguinte do progama: 


a condição 

1 


▼ 

300 |ÍFX] = 0 THEN -1 

► PRINT "NUMERO E IGUAL A ZERO" 

▲ 

siga este caminho, se 

t 

siga este caminho, se 
a condição for verdadeira 

a condição for falsa 





















Você tem dois caminhos para 
seguir, dependendo da decisão 
que tomar. Se o que estiver escrito 
na placa é verdadeiro, vá para a 
direita. Se for falso, vá para a 
esquerdat 

Vamos ver agora um programa 
bem simples, para mostrar como 
funciona o comando IF numa 
situação real. Neste programa, a 
pessoa digita um número qualquer 
no teclado, e o computador 
informa se ele é zero, positivo ou 
negativo. 



- _ 

10REM- PROGRAMA PARA TESTAR SE UM NUMERO 

> • 


20 REM — E ZERO, POSITIVO OU NEGATIVO 








30 REM 
40 REM 


50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "ENTRE UM NUMERO E EU DIGO QUE SINAL ELE" 
80 PRINT "TEM 
90INPUTX 
100 REM 

110 REM — TESTA O NUMERO 
120 REM 
125 PRINT 

130 IF X = 0 THEN PRINT "O NUMERO E ZERO" 

140 IF X > 0 THEN PRINT "O NÜMERO "X;" POSITIVO" 

150 IF X < 0 THEN PRINT "O NUMERO ";X;" E NEGATIVO" 

160print 




170 GOTO 90 





Vamos ver como funciona este 
programa. Depois de digitar o 
comando RUN, aparece na tela 



Então, se eu digitar, por exemplo, c 
número - 9: 


ENTRE UM NÚMERO E EU 
DIGO QUE SINAL ELE TEM 


1 


9 E 


J 


E o computador responde: 


ENTRE UM NUMERO E EU 
DIGO QUE SINAL ELE TEM 

O NUMERO - 9 E NEGATIVO 


I 


Se eu digitar agora o número 34: 


ENTRE UM NUMERO E EU 
DIGO QUE SINAL ELE TEM 




O NUMERO - 9 E NEGATIVO 
O NUMERO 34 E POSITIVO 


•UJ 



E assim por diante. 

. Para interromper o programa, 
podemos pressionar a tecla STOP 

Outro uso bastante comum do 
IF é para assinalar quando uma 
determinada parte de um 
programa deve ser terminada e 
outra parte deve ser iniciada. 
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Veja o programa abaixo: 


Vamos ver um exemplo de utili¬ 
zação do programa: 


10 REM — MAQUINA DE SOMAR 

20REM_ 

30 REM 

40 REM — INSTRUÇÕES 
50 REM 

60 PRINT "DIGITE OS NUMEROS QUE QUISER SOMAR" 
70 PRINT "TODA VEZ QUE APARECER A LETRA L NA" 
80 PRINT "PARTE DE BAIXO DA TELA" 

90 PRINT 

100 PRINT "PARA OBTER A SOMA, DIGITE 0" 

110 PRINT 
120 REM 

130 REM — ZERA O SOMADOR 
140 REM 

150 LET SOMA = 0 
160 REM 

170 REM — ENTRADA DA PARCELA 
180 REM 
190 INPUT D 
200 REM 

210 REM — SE FOR ZERO, PULA PARA 350 
220 REM 

230 IF D = 0 THEN GOTO 350 
240 REM 

250 REM — SE NAO FOR, SOMA O DADO 
260 REM 
265 PRINT D 

270 LET SOMA = SOMA + D 
280 REM 

290 REM — E VOLTA A 190 DE NOVO 

300 REM 

310 GOTO 190 

320 REM 

330 REM — FIM DA ENTRADA. MOSTRA SOMA 
340 REM 
350 PRINT 

360 PRINT "SOMA = ";SOMA 
370 STOP 



O programa funciona como uma 
máquina de somar. O número de 
parcelas a serem somadas não é 
conhecido de antemão. Assim, a 
parte do programa entre as linhas 
190 e 310 forma uma alça de repe¬ 
tição, que serve para pedir os valo¬ 
res para o usuário (através do co¬ 
mando INPUT, na linha 190), e so¬ 
má-los usando o contador SOMA. 


Para interromper esta alça, 
quando todos os números tiverem 
sido digitados, tenho que informar 
isso de algum modo ao computa¬ 
dor. Poderíamos, neste caso, digi¬ 
tar o número zero. Um teste, den¬ 
tro do programa, desvia o proces¬ 
samento para outra parte (linha 
350 a 370), que vai mostrar o resul¬ 
tado. . 



DIGITE OS NUMEROS QUE 
QUISER SOMAR 
TODA VEZ QUE APARECER A 
LETRA L NA 

PARTE DE BAIXO DA TELA 


L 



Se eu digitar os números 12, 7, 
15 e 35, um após o outro (pressio¬ 
nando a tecla NEW LINE ou EN¬ 
TER, após cada um), teremos a se¬ 
guinte tela: 


DIGITE OS NUMEROS QUE 
QUISER SOMAR TODA VEZ 
QUE APARECER A LETRA 
NA PARTE DE, BAIXO DA 
TELA 
12 
7 
15 


n 


35 


Agora, se quisermos terminar 
esta parte do programa e ver o re¬ 
sultado da soma (linhas 350 a 370), 
vamos digitar 0 e ocorrerá o se¬ 
guinte: 


í : OS 

NUMEROS Ql 1 

1 QUISER SOMAR TODA VEZ ' 
QUE APARECER A LETRA L 

NA PARTE 

I TELA 

12 

DE BAIXO DA 

7 

SOMA = 69 

15 


■ 35 




Veja quais seriam os números ar¬ 
mazenados nas variáveis D e SO¬ 
MA, no exemplo acima. 


Número 

Variável 

Variável 

digitado 

D 

SOMA 

12 

12 

12 

7 

7 

19 

15 

15 

* 34 

35 

35 

69 

0 

0 

69 



e acaba.. 
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Se eu não tivesse a linha de teste 
com o IF, seria impossível dizer ao 
computador quando ele deveria 
mostrar o resultado da SOMA. 

* 

Note como funciona a linha de 
teste 

230 IF D = 0 THEN GOTO 350 

Esta frase tem o seguinte signifi¬ 
cado em português: 

Se o valor de D for igual a zero, 
ENTÃO vá para 350. 

Quando o computador encontra 
esta linha de programa, o que fará 
ele? 


2. se este número for igual a zero, 
então obedece o comando que está 
na mesma linha que o IF, logo de¬ 
pois do THEN, ou seja, GOTO 350; 

3. se este número nào for igual a 
zero, continua seguindo o progra¬ 
ma, a partir da linha seguinte (ou 
seja, a linha 240). 


Mais usos para o IF 


O comando IF é Interessante 
porque permite testar informações 
de muitas maneiras diferentes. Ele 
permite, por exemplo, verificar se 
a resposta a uma pergunta feita ao 
computador esta correta ou nào. 


— linha 60: o programa mostra a 
pergunta, no alto da tela 

— linha 70: fica esperando a res¬ 
posta digitada no teclado, e a 
guarda na variável chamada 
RESPOSTAS 


COMO SE CHAMA A 
CAPITAL DA ITALIA? 


— linha 110: compara o que está 
em RESPOSTAS com a constan¬ 
te ROMA. 


1. Compara o número armazenado Vamos entender como funciona 

na variável D com zero; este programa, passo a passo. 




O COMPUTADOR FAZ UMA PERGUNTA 


10 REM_TESTE DE GEOGRAFIA 

20 REM__ 

30 REM 

|40 REM_ 

50 REM 

60 PRINT "COMO SE CHAMA A CAPITAL DA ITALIA?" 
70 INPUT RESPOSTAS 
80 REM 

90 REM_VAMOS VER SE A RESPOSTA 

ESTA CERTA 
100 REM 

110 IF RESPOSTAS="ROMA" THEN GOTO 200 
120 REM 

130 REM_NAO, ERROU 

140 REM 
150 CLS 

160 PRINT "ERROU. A CAPITAL DA ITALIA E ROMA 
170 STOP 
180 REM 

185 REM_PULA PRA CA, SE A RESPOSTA 





FOI CORRETA 

190 REM 
200 CLS 

210 PRINT "ACERTOU, VOCE SABE GEOGRAFIA, HEIN?" 
220 STOP 




Se for verdadeiro, ou seja, se a 
pessoa digitou ROMA, ENTÃO pu¬ 
la para a linha n. 200, para dar os 
parabéns. 


— linha 150 a 160: limpa a tela 
(CLS), diz que errou, e mostra a 
resposta correta. Depois pára, 
interrompe o programa. 


— linha 200 a 220: limpa a tela, e 
dá os parabéns. Depois inter¬ 
rompe o programa. 


Como funciona o comando IF? 


Com os exemplos acima, )á po¬ 
demos deduzir alguns princípios 
sobre o funcionamento do coman¬ 
do IF: 


— uma linha com o comando IF é 
composta de quatro partes: 


1. a palavra IF 


2. uma comparação entre duas coi¬ 
sas 


3. a palavra THEN 

4. uma linha com um comando que 
deve ser executado, se o resulta¬ 
do da comparação for VERDA¬ 
DEIRO 


40 
















As palavras IF e THEN são fixas, 
ou seja, sempre devem constar na 
linha. 

Vamos ver o que o BASIC permi¬ 
te que coloquemos nos itens 2 e 4. 

O item 2 é chamado de CONDI¬ 
ÇÃO, ou ainda de CLÁUSULA 
LÓGICA. 

O item 4 é chamado de AÇÃO 
ou CONSEQUÊNCIA. 

A condição 

Em geral, a cláusula lógica é es¬ 
crita de tal forma que permita uma 
comparação. 

Por exemplo: 


IFX = 5 THEN ... 


testa se o valor da variável numéri¬ 
ca X é igual a 5 


IF A > B THEN ... 


testa se o valor da variável numéri¬ 
ca A é maior do que o valor da va¬ 
riável numérica B 


IF 13 + (25 - 3) / 2 < C THEN ... 


testa se a expressão aritmética à es¬ 
querda é menor do que o valor da 
variável numérica C 


IFR$ = "SIM"THEN ... 


testa se a palavra armazenada na 
variável alfanumérica R$ é igual à 
constante alfanumérica SIM 


Só existem dois resultados possí¬ 
veis para uma expressão lógica: 
verdadeiro ou falso. 


Se a EXPRESSÃO resulta VER¬ 
DADEIRA, a AÇAO é executada. 

Se a EXPRESSÃO resulta FAL¬ 
SA, a AÇÃO não é executada. 


Os sinais de igual (=), maior (>) 
e menor ( <) são chamados de ope¬ 
rações relacionais, ou seja, permi¬ 
tem formar uma expressão que con¬ 
tenha uma igualdade ou uma desi¬ 
gualdade (como na matemática). 


As seguintes operações relacio¬ 
nais são permitidas em BASIC: 



Aaçao 

O que vem na mesma linha do IF, 
logo depois da expressão lógica, é a 
ação ou conseqüência a ser seguida, 
se ela for verdadeira. 


No BASIC do TK-85, bem como no 
de todos os outros microcomputadores 
compatíveis com a linha Sinclair, a 
ação pode ser qualquer comando váli¬ 
do em BASIC: 


Para digitar estas operações no 
teclado, note que existe algumas te¬ 
clas rotuladas com estes sinais: 



Você já conhece alguns, que podem 
ser colocados sem problemas depois 
de um comando IF: 



CLS 
PRINT 
INPUT 








Para entrar a operação, mante¬ 
nha pressionada a tecla SHIFT, en¬ 
quanto pressiona a tecla correspon¬ 
dente ao sinal desejado. 

Preste atenção em uma coisa: vai 
haver erro se você tentar obter o si¬ 
nal > = pressionando a tecla > e 
depois a tecla = . 

Este sinal só pode ser obtido cor¬ 
retamente por meio de sua tecla es¬ 
pecial, e assim todos os outros. 

Uma comparação lógica deve 
sempre ter variáveis ou constantes 
do mesmo tipo, na mesma expres¬ 
são. Caso contrário, ocorrerá erro. 

Por exemplo: 

IF COMIDA = "BATATA" 
THEN... 

não está correto, porque estamos 
tentando comparar uma variável 
numérica com uma constante alfa¬ 
bética. 

Ou então: 

IFX$ > 24THEN... 

também não dará certo, porque es¬ 
tamos colocando na mesma expres¬ 
são lógica uma variável alfanuméri¬ 
ca e uma constante numérica. 


são os mais usados. 

Eis aqui alguns exemplos: 

IF SEXO$ = "FEMININO" THEN 
GOTO 300 

IF T 20 > THEN STOP 

IF S < 0 THEN PRINT "O NUMERO 

E NEGATIVO" 

IF R <> 2 THEN INPUT P$ 

IF ANOS = "BISSEXTO" THEN LET 
DIAS = 366 

IF UNHAS > 20 THEN CLS 
IF FIM = 0 THEN RUN 

Vamos ver mais alguns e&emplos do 
uso do comando IF: 


EXEMPLO 1 : um programa para xin¬ 
gar uma pessoa! 
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10 REM - PROGRAMA PARA XINGAR UMA PESSOA 

20REM _ 

30 REM 

40 REM_PERGUNTA O NOME E O SEXO DA PESSOA 

50 REM 

60 PRINT "COMO VOCE SE CHAMA?" 

70INPUT NOMES 

80 PRINT "QUAL E O SEU SEXO (MASCULINO OU FEMININO)?" 
90INPUT SEXOS 
100 REM 

110 REM_TESTA QUAL E O SEXO 

120 REM 

130IF SEXOS = "MASCULINO" 

THEN LET XINGS = "BOBO" 

140 IF SEXOS = "FEMININO" 

THEN LET XINGS = "BOBA" 

150 REM 

160 REM_ESCREVE O XINGAMENTO APROPRIADO 

170 REM 
180 PRINT 

190 PRINT NOMES; " VOCE E ";XING$ 

200 STOP 


Como vai ser o resultado deste pro¬ 
grama? 

O que acontecerá se a pessoa digi¬ 
tar de uma forma errada o sexo, ou se¬ 
ja, se não for exatamente igual a MAS¬ 
CULINO ou FEMININO? 

Exemplo 2: programa para cálculc 
de raiz quadrada. 

Vamos supor que queremos fazei 
um programa para calcular a raiz qua¬ 
drada de um número qualquer. Que¬ 
remos que o programa funcione assim: 
primeiro, a pessoa digita no teclado c 
número que desejar. Depois, o pro¬ 
grama calcula a raiz quadrada e mos¬ 
tra o resultado na tela. Em seguida, 
pede outro número à pessoa, e assim 
por diante. 


10 REM - PROGRAMA PARA CALCULO DE RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK-85 

30 REM _ __ _ 

40 REM 

50 REM__ENTRADA DE UM NUMERO 

60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80 PRINT" = = = = = = = = = = = = = = = = = = = = = = =" 

90 PRINT "DADO"; 

100 INPUT D 
110 PRINT D; 

115 REM 

120 REM — CALCULO E IMPRESSÃO 
130 REM 

140 LET R = SQR (D) 

150 PRINT "RAIZ QUADRADA = ";R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA 
OUTRO NUMERO 
180 REM 
190 GOTO 90 





E muito fácil entender como funcio¬ 
na o programa: 

— nas linhas 90 E 100, o programa so¬ 
licita o número a ser calculado; 

— na linha 110, o número digitado é 
impresso na mesma linha; 

— nas linhas 140 e 150, o programa 
calcula e mostra a raiz quadrada; 

— na linha 190, o programa é desvia¬ 
do para o comando INPUT, de modo a 
possibilitar novo cálculo. 


O GOTO 90 na linha 190 cria uma 
"a/ça sem fim", ou seja, o programa 
sempre vai se repetir, infinitamente. 
Quando você quiser parar de utilizar o 
programa, basta pressionar a tecla 
STOP, com o programa na linha 90, ou 
pressionar a tecla BREAK, quando ele 
estiver calculando. Isto você já apren¬ 
deu. 


O programa ficaria muito melhor, 
entretanto, se não fosse necessário 
pressionar estas teclas para 
interrompê-lo. Poderíamos fazer com 
que o computador "soubesse" quando 
deveria parar. 
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Uma sugestão interessante seria es¬ 
ta: se a pessoa entrar um valor deter¬ 
minado (por exemplo, zero), o progra¬ 
ma parará automaticamente. 

Para isto, precisamos testar se o va¬ 


lor armazenado na variável de entrada 
D é igual a zero, certo? 

105 IF D = 0 THEN STOP 


Agora, nosso programa ficará as¬ 
sim: 



10 REM - PROGRAMA PARA CALCULAR RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK - 85 

30 REM _ 

40 REM 

50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80PRINT " = = = = = = = = = = = = = = = = = 





// 


90 PRINT "DADO"; 

100INPUTD 

101 REM 

102 REM — TESTA SE O VALOR E ZERO 

103 REM 

105 IF D = 0 THEN STOP 
115 REM 

120 REM — CALCULO E IMPRESSÃO 
130 REM 

140LETR = SQR(D) 

150 PRINT "RAIZ QUADRADA = R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA 
OUTRO NUMERO 
180 REM 


Agora parece que o programa já es¬ 
tá bom, mas existe ainda outro proble- 
minha a ser resolvido. 

Não existe a raiz quadrada de um 
número negativo. 

Assim, se você digitar o número -5, 
por exemplo, o programa será inter¬ 
rompido, e aparecerá a seguinte men¬ 
sagem de erro: 


ir 

1 

CALCULO DA RAIZ 

1 

QUADRADA 


1 DADO-5 

r 

i/140 

1 

^—_ 

-^ 


Isto quer dizer que a função na linha 
indicada (140) foi usada com um argu¬ 
mento (isto é, dado de entrada) indevi¬ 
do ou errado (não permitido ou impos¬ 
sível de ser calculado). 

Não é conveniente deixar ocorrer 
este tipo de interrupção em um pro¬ 
grama, porque às vezes a pessoa que 
está operando não sabe o que significa 
aquela mensagem de erro nem como 
voltar a utilizar o programa. 

O ideal é que o próprio programa se 
encarregue de verificar se o número 
digitado pode ou não ser usado. 

Para que façamos isto, é necessário 
realizar um teste. No nosso exemplo, 
teríamos que testar, dentro do progra¬ 
ma, se o número digitado pela pessoa 
é válido ou não. 


Se o número fosse incorreto, o pro¬ 
grama poderia mostrar uma mensa¬ 
gem de advertência (por exemplo: 
NÃO PODE SER UM NÚMERO NE¬ 
GATIVO, ou outra qualquer). 

Por exemplo, poderíamos colocar 
em nosso programa a seguinte linha, 
logo após aquela que serve para entrar 
o número a ser calculado (linha 100, 
com o comando INPUT): 

109 IF D < 0 THEN GOTO 250 

Esta linha permitirá interceptar to¬ 
dos os números negativos. Se a cláusu¬ 
la 


D <0 


for verdadeira, o programa pulará 
para a linha 250, onde será mostrada 
uma mensagem de advertência, para 
indicar o erro cometido. 


Se ela for falsa (ou seja, o número é 
maior do que zero), o programa pulará 
para a linha seguinte (110), e o restan¬ 
te do cálculo será realizado. 


Agora, com todas as modificações, 
nosso programa ficará assim: 
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10 REM - PROGRAMA PARA CALCULAR RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK - 85 

30 REM _ 

40 REM 

50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80PRINT" = = = = = = = = = = = = = = = = = = = = = = 

90 PRINT "DADO"; 

100INPUT D 

101 REM 

102 REM — TESTA SE O VALOR E ZERO 

103 REM 

105IF D = 0 THEN STOP 

106 REM 

107 REM — TESTA SE O VALOR E NEGATIVO 

108 REM 

109 IF D<0 THEN GOTO 250 

110 PRINT D; 

115 REM 

120 REM — CALCULO E IMPRESSÃO 
130 REM 

140LETR = SQR(D) 

150 PRINT "RAIZ QUADRADA = R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA OUTRO NUMERO 
180 REM 
190 GOTO 90 
200 REM 

210 REM — MENSAGEM DE ERRO 
220 REM 

250 PRINT "NAO PODE SER UM NUMERO NEGATIVO" 

260 GOTO 90 







Coloque este programa no compu¬ 
tador e teste com alguns números posi¬ 
tivos e negativos para ver se ele fun¬ 
ciona. 




{c 

c 

□1 

A 

B 

b 

u 

Q 

-D 



1. Responda que valor o programa vai 
mostrar na tela (linha 30) ao ser exe¬ 
cutado. 


a - 10 LET C = 34 
20 LET D = 25 
30 IF C>D THEN PRINT 
"NUMEROS DIFERENTES" 


b - 10 LET A = 234.5 
20 LET B = 234 

30 IF B-A<0 THEN PRINT "RAIZ 
QUADRADA IMPOSSÍVEL" 

40 IF B-A >0 THEN PRINT 
SQR(B-A) 

c - 10 LET A$ = "BANANA" 

20 LET B$ = "AVESTRUZ" 

30 IF A$< >B$ THEN PRINT 
"SAO DUAS PALAVRAS 
DIFERENTES" 

2. Escreva o significado das 
operações relacionais: 


< > 
< = 
< 

> 


> = 


3. Faça um programa para calcularo 
produto de dois ou mais números. 

Use o exemplo da "máquina de so¬ 
mar" como modelo. 

4. Prolongue o programa do teste de 
geografia, de modo a incluir outras 
questões (por exemplo, sobre a capi¬ 
tal da Inglaterra, da França e da Es¬ 
panha). 

5. Escreva por extenso o que significa 
cada teste IF abaixo: 


a - IF A = 12.5 THEN... 
b - IF SQR(MEDIA) > 12 THEN... 
c - IF NOMES = "DELFIM NETO" 
THEN... 

d - IF B**2>INT(B) THEN... 

6. Escreva ao lado de cada comando 
IF qual é o erro: 

a - IF MEDIDA = "COLHER" THEN 
RUN 

b - IF X= <B$ THEN PRINT "SAO 
DIFERENTES" 
c- IFB> 12 PRINT PRINT 
d - IF LADOS = 25 THEN STOP 
e - STOP IF LADO = 25 
f - IF B2 + E5 + "F4" - C22 THEN 
CLS 
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7. Faça um programa para testar se o 
resultado da divisão de um número 
por outro tem resto maior do que ze¬ 
ro. 


Dica: 10 INPUT NI 
20 INPUT N2 
30 LET D = N1/N2 
40 IF... 

Use a função INT (inteiro de) para 
verificar. 


8. Explique o que faz o programa 
abaixo com os valores de entrada (A e 
B) indicados. 

10 INPUT A 

20 INPUT B 

30 LET N = 0 

40 LET N = N + 1 

50 IF N = B THEN STOP 

60 LET A = A + 2 

70 PRINT A; " 

80 GOTO 40 


Valores: a - A = 2, B = 5 
b - A = 4, B= 1 
c- A = 0, B= 10 
d - A= 1, B = .l 


9. Estude o programa abaixo e escre¬ 
va as mensagens que serão escritas na 
tela quando o programa for executa¬ 
do: 



Como vimos na primeira parte des¬ 
te capítulo, um dos usos principais 
para o comando IF é observado na 
contagem e repetição de certos seg¬ 
mentos de um programa (ou seja, o 
que chamamos de alças de repetiçõo ). 

Para isto, ele é empregado em con¬ 
junto com uma variável chamada 
acumuladora ou contadora , que ser¬ 
ve para registrar quantas vezes cada 
coisa foi repetida. 

Por exemplo: um programa para 
contar de 1 a 10, mostrando na tela o 
seguinte resultado: 


1 234567890 FIM 


poderia ser programado da seguinte 
maneira: 

10 LET N = 0 
20 LETN = N+1 
30 PRINT N;" 

40 IF N < 10 THEN GOTO 20 
50 PRINT "FIM" 


Vamos entender melhor como funciona este programa: 


10 LET N = 0 N será a variável contadora. Por isso, 

devemos inicializá-la (no caso, igualá-la a 
zero). Isto deve ser feito antes de se come¬ 
çar a alça de repetição. 


10 PRINT "CURSO DE PROGRAMA¬ 
ÇÃO BASIC" 

20 GOTO 75 

30 PRINT "EDITORA ABRIL CULTU¬ 
RAL" 

40 PRINT 
50 GOTO 140 

60 PRINT "BASIC E MUITO FACIL" 
70 GOTO 90 
75 PRINT "APRENDER"; 

80 GOTO 60 
90 LET A = 8 
100 IF A = 8 THEN 110 
105 PRINT "BASIC E MUITO DIFÍ¬ 
CIL" 

110 STOP 

140 PRINT "FIM DA MENSAGEM" 


Responda também: quais são as li¬ 
nhas do programa que nunca serão 
executadas. Por quê? 


20 LET N = N + 1 Aqui é o começo da alça de repetição. 

Somamos 1 ao valor anterior armazenado 
em N (isto é, incrementamos ou acumula¬ 
mos o valor da contadora N). 


30 PRINT N;" "; Aqui imprimimos o valor atualizado de 

N, que será maior cada vez que a alça for 
repetida. 


40 IF N < 10 THEN GOTO 20 Este ^ ° a ^ a repetição. Testa¬ 
mos se o valor incrementado na variável 
N já atingiu 10. Se ainda não tiver atingi¬ 
do, volta-se para a linha 20, para nova re¬ 
petição. 


V 

10. Faça um programa que imprima 
na tela os números de 10 a 20. 

. «í 

50 PRINT "FIM" Se o teste IF da linha anterior não for 

verdadeiro, ou seja, se N for igual ou 
maior do que 10, então o programa sai da 
alça e encerra o processamento, impri¬ 
mindo FIM. 
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Portanto, vemos que este progra¬ 
ma tem três partes: 

inicialização 
(antes da alça) 


10 LET N = 0 


20 LET N = N + 1 
30 PRINT N; x> ”; 
40 IF-N<10 THE 
GOTO 20 


aqui, tudo 
é repetido 
10 vezes 


50 PRINT "FIM" ► final da alça 


se quisermos, poderemos acrescentar 
outros comandos, fora da alça. 


Note que este programa poderia ser 
escrito de muitas outras maneiras, 
com exatamente o mesmo resultado, 
em termos de processamento: 


A) 10 LET N = 0 

20 IF N>10 THEN 60 
30 LET N = N + 1 
40 PRINT N;" 

50 GOTO 20 
60 PRINT "FIM” 


B) 10 LET N = 1 
20 PRINT N;" 

30 LETN = N+1 
40 IF N< = 10 THEN 20 
50 PRINT "FIM” 


C) 10 LET N = 1 

20 IF N>10 THEN 50 
30 PRINT N;" ”; 

35 LET N = N + 1 
40 GOTO 20 
50 PRINT "FIM” 

Na variante A, o teste é feito antes do 
incremento. A variável contadora é igua¬ 
lada a zero na inicialização, por isso, a 
impressão (PRINT) tem que ser feita de¬ 
pois do incremento (N = N +1). 

Na variante B, a contadora é igualada 
a 1. Por isso, primeiro devemos imprimir 
seu conteúdo para somente depois in¬ 
crementá-la Neste exemplo, o teste é fei¬ 
to no final da alça. 

Na variante C, temos uma mistura de A 
e B: o teste é feito no início da alça, mas 
a contadora é igualada a 1 também no 
início. 


Como essas, você poderia imaginar 
ainda um grande número de combina¬ 
ções das linhas, obtendo o mesmo resul¬ 
tado. Por isso, quase nunca existe uma 
única solução para um programa: várias 
soluções podem levar ao mesmo resul¬ 
tado. 


Mas cuidado: um pequeno erro no 
operador relacional, ou na ordem de co¬ 
locação das linhas, pode levar a um re¬ 


sultado diferente do esperado. Por 
exemplo: 

10 PRINT N = 0 

20IFN >10 THEN GOTO60 

30 PRINT N; " 

40 LET N=N +1 
50 GOTO 20 
60 PRINT "FIM" 

imprimirá 10 números, conforme o pre¬ 
visto, porém o fará de 0 a 9. Experimente! 

Que linha você mudaria para obter 
um resultado correto? 

Modificando ligeiramente a lógica do 
programa acima, podemos fazê-lo con¬ 
tar de 2 em 2, de 3 em 3 eta 

Por exemplo, queremos fazer com que 
o programa imprima todos os números 
pares de 2 a 10: 

10 LETN=0 
20 LET N=N+2 
30 PRINT N; " 

40 IF N < 10 THEN GOTO 20 
50 PRINT "FIM" 

Na tela, será apresentado o seguinte 
resultado: 



Para obter os números ímpares de 1 a 9, 
bastariam estas mudanças: 

10 LETN=1 
20 PRINT N;" 

30 LET N = N-f 2 

40 IF N < 9 THEN GOTO 20 

50 PRINT "FIM" 


Obteríamos o seguinte resultado: 


I 1 3 5 7 9 FIM 

1 

c -S 

1 

L 



Portanto, podemos ver claramente que 
todo programa de repetição controlada 
de alças (isto é, através de um certo nú¬ 
mero fixo de repetições), tem sempre os 
mesmos elementos básicos: 



A repetição (da linha 20 à 40) se dá en¬ 
tre os valores inicial e final fixados no pro¬ 
grama para a variável contadora, ou 
índice. 

No programa acima, as linhas 10,30 e 40 
servem exclusivamente para montar a ló¬ 
gica de repetição: 

linha 10 - inicialização da contadora 
linha 30 - incremento da contadora 
linha 40 - testa se o conteúdo da conta¬ 
dora atingiu o valor final. 

Portanto, na realidade, apenas a linha 
20 é o "miolo" da alça. 

Podemos colocar quantos comandos 
quisermos entre os comandos de início e 
fim de uma alça. Neste caso, todos serão 
repetidos tantas vezes quantas determi¬ 
nar a contagem. 

Por exemplo, vamos fazer um progra¬ 
ma para imprimir na tela o quadrado e o 
cubo dos múltiplos de 2 (2, 4, 6, 8 etc), 
até 20. 


10 LET N=2 
20 IF N > 20 THEN 80 
30 LET Q=N*N 
40 LET C=N*N*N 
50 PRINT N, Q, C 
60 LETN=N+2 
70 GOTO 20 
80STOP 


Observe que neste exemplo as linhas 
de 30 a 50 constituem os comandos a se¬ 
rem repetidos pela alça. As linhas 10,20, 
60 e 70 são usadas para incrementar e 
testar esta alça. 
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H lças variáveis 


Outra possibilidade muito interessan¬ 
te é substituir as constantes correspon¬ 
dentes aos valores inicial, final e de incre¬ 
mento de uma alça por variáveis numé¬ 
ricas. Isto permite que, com um único 
programa, possamos fazer uma infinida¬ 
de de repetições diferentes. 

Por exemplo, vamos fazer um progra¬ 
ma que saiba contar de 1 até o número 
que quisermos (que será fornecido pelo 
teclado): 


60CLS 

70 PRINT "EIS A TABUADA DE ";T 

80PRINT 

90 LET N =T 

100 PRINT N;" N*T 

110LETN = N+T 

120IF N<T*10THEN GOTO 100 
130 STOP 


Um exemplo de execução deste pro¬ 
grama seria o seguinte: 


ÍQUE TABUADA VOCE QUER?] 


4[D 


10 REM — PROGRAMA QUE SABE CONTAR 

20 REM. 

30 REM 

40 REM — MENSAGEM INICIAL 
50 REM 

60 PRINT "EU SEI CONTAR DE 1 ATE O NUMERO" 
70 PRINT "QUE VOCE QUISER." 

80 PRINT 

90 PRINT "DIGITE O NUMERO QUE QUISER = 
100INPUTNUM 
110 PRINT NUM 
120 PRINT 
130 REM 

140 REM — INICIALIZACAO DA CONTADORA 
150 REM 

160 LET CONT= 0 
170 REM 

180 REM — ALCA DE REPETIÇÃO 
190 REM 

200 LET CONT= CONT+1 
210 PRINT CONT 

220 IF CONT < NUM THEN GOTO 200 
230 STOP 



Da mesma forma, o incremento tam¬ 
bém podería ser colocado como variável. 

For exemplo, este programa mostra na 
tela a tabuada de multiplicar que 
quisermos. 

10 REM — TABUADA DE 
MULTIPLICAR 

20 REM. 

30 REM 

40 PRINT "QUE TABUADA 
VOCE QUER ESTUDAR?" 

50INPUT T 


EIS A TABUADA DE 4: 

4 8 12 16 20 24 28 32 40 

9/ 130 


Os valores de incício, time incremento 
da alça não precisam ser inteiros ou cres¬ 
centes, como nos exemplos até agora. 


Se o valor do incremento for negativo 
(neste caso, o nome apropriado seria de- 
cremento), a contagem será retroativa, 
ou seja, o valor final deverá ser menor do 
que o inicial. 

Por exemplo, vamos fazer um progra¬ 
ma que faça uma contagem retroativa 
para simular o lançamento de um 
foguete! 



O programa pode ser bem simples: 

10 REM - PROGRAMA PARA CON¬ 
TAGEM REGRESSIVA 

20 REM .. 

30 REM 

40 PRINT "VAMOS LANÇAR UM FO¬ 
GUETE DA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80 INPUT SEG 
90 REM 

100 REM CONTAGEM REGRES¬ 
SIVA 
110 REM 
120 CLS 

130 PRINT "ATENCAO" 

140 PRINT 
150 PRINT SEG;" 

160 LET SEG = SEG-1 
170 IFSEG>0 THEN 150 
180 PRINT 
190 PRINT 

200 PRINT "FOGO..." 

210 STOP 

Observe que neste programa a variá¬ 
vel contadora (SEG) é inicializada pelo 
próprio comando INPUT, na linha 80. 

Com o programa seguinte, você pode 
ver também que os valores da alça não 
precisam ser inteiros (ou seja, podem ser 
fracionários): 

10 PRINT "VALOR INICIAL DO ÍNDI¬ 
CE?" 

20 INPUT I - 

30 PRINT "VALOR DO INCREMENTO 
CO ÍNDICE?" 

40 INPUT S 

50 PRINT "VALOR FINAL DO ÍNDI¬ 
CE?" 
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60 INPUT F 
70 LETN=I 
80 PRINT N;" 

90 LET N=N+S 

100 IF N F THEN GOTO 80 

110 PRINT 

120ST0P 

Por exemplo, se colocarmos os valores 
I=4, S=0.5 e F=6, teremos o resultado: 



MM 

S em um jeito 
S mais fácil 


Como a programação de alças de re¬ 
petição é um recurso muito utilizado, a 
linguagem BASIC foi dotada de um co¬ 
mando que permite fazê-la de modo 
mais fácil do que usando o comando IF. 

Este comando é chamado de FOR 
que, em inglês, significa RARA. 

Para construir uma alça de repetição 
com o comando FOR, é necessário mar¬ 
car também o final da mesma por meio 
de segundo comando, chamado NEXT 
(SEGUINTE, em português), e que sem¬ 
pre é usado em conjunto com o FOR. 

Siga o exemplo abaixo, para com¬ 
preender de que jeito os comandos 
FOR... NEXT são utilizados para obter 
uma repetição. 


O comando na linha 10 do programa 
à direita está dizendo para o 
computador: 

10 repita PARA a variável Rindo de 1 
ATÉ 10, de 1 em 1. 

Todos os comandos que estiverem en¬ 
tre a linha 10 e o próximo NEXT serão re¬ 
petidos tantas vezes quantas o número 
indicar (no exemplo, apenas a linha 20). 

O comando na linha 30 está dizendo 
para o computador: 

30 PRÓXIMA repetição com a variável 
N. 

O que significa que o programa retor¬ 
na à linha 20 (ou a qualquer linha que es¬ 
tiver imediatamente em seguida à linha 
com o comando FOR), para nova repeti¬ 
ção, desde que o valor da contadora não 
tenha atingido o seu final. 

Portanto, o comando FOR serve para 
fixar: 

1. o nome da variável de contagem 
(índice) 

2. o valor inicial do índice 

3. o valor final do índice 

4. onde deve começar a alça de repetição 

Enquanto o comando NEXT serve pa¬ 
ra realizar o seguinte: 

1. incrementar o valor do índice 

2. testar se ele atingiu o valor final 

3. indicar o final da alça 

Depois da alça POR...NEXT ter sido 
repetida n vezes, o programa retoma o 
seu fluxo normal, a partir da linha ime¬ 
diatamente após a linha que contém o 
NEXT. 


Atenção: na linguagem BASIC para 
microcomputadores compatíveis com a 
lógica Sinclair (marcas TK 82C, TK 83, 
TK 85, CP 200 etc), é obrigatória a colo¬ 
cação do nome da variável-índice no co¬ 
mando NEXT. Em outros computadores, 
nem sempre isto é necessário. 

Você deve ter notado que o comando 
FOR, como foi mostrado até agora, não 
especificou o valor do incremento (quan¬ 
tidade a ser adicionada ao índice, a partir 
do valor inicial). 

Se nada for especificado no comando 
POR, o valor do incremento é igual a 1 . 

Se quisermos colocar um incremento 
diferente de 1, usamos o comando STEP 
(que significa PASSO), ao final do co¬ 
mando FOR: 

10 FOR 1=2 TO 10 STEP 2 

20 PRINT I;" 

30 NEXT I 

40 PRINT "FIM" 

Este programa vai mostrar todos os nú¬ 
meros pares de 2 a 10.0 incremento ne¬ 
cessário (no caso, 2) é indicado pela pa¬ 
lavra STEP. 

Portanto: 

FOR N=1 TO 10 STEP 1 
é a mesma coisa que 

FOR N=T TO 10 


Portanto, se compararmos as duas for¬ 
mas de programar uma alça, poderemos 
facilmente identificar os seus elementos 
básicos: 


USANDO IF 





USANDO FOR...NEXT 

10 FOR©= (2)TO @)STEP(2 
20 PRINT N;" 


30 LETN=N+(2)- 1incremento! — ^ 30 NEXTN 

40 IF N< @THENGCTO20_ 



fifl PRINT "FTM" 


valor 

final 


40 PRINT "FIM" 



USANDO IF 

10 LET N=1 
20 PRINT N 
30 LETN=N+1 
40 IF N < 10 THEN GOTO 20 
50 PRINT "FIM" 



USANDO FOR ...NEXT 

10 FOR N=1 TO 10 
20 PRINT N 
30 NEXT N 

50 PRINT "FIM" 
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Os comandos que estão entre um POR 
e seu NEXT correspondente são agrupa¬ 
dos no chamado alcance da alça. Um 
outro nome que você poderá encontrar 
para alça, em outros livros e revistas, é 
malha. 


Ao contrário das alças construídas 
com o comando IF, as alças com o co¬ 
mando POR...NEXT admitem apenas 
uma estruturação. 

Note como o programa para elabora¬ 
ção da tabela de quadrados e de cubos 
fica muito mais simples: 


10 POR N=2 TO 20 STEP 2 

20LETQ=N*N 

30LETC=N*N*N 

40 PRINT N,QC 

50 NEXT N 

60STOP 


Várias linhas de programação e uma 
complicação desnecessária são evitadas. 

As linhas 20,30 e 40 são o alcance da 
alça, que vai de 20 a 50. 

Note também que o comando FOR 
aceita também especificações fracioná¬ 
rias ou negativas 

Per exemplo, o nosso programinha de 
contagem regressiva para os foguetes fi¬ 
caria assim: 


10REM — PROGRAMA PARA 
CONTAGEM REGRESSIVA 

20 REM. 

30REM 

40 PRINT "VAMOS LANÇAR UM 
FOGUETE DA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80INPUT SEG 
90 REM 

100 REM — CONTAGEM 
REGRESSIVA 
110 REM 
120 CLS 

130 PRINT "ATENCAO" 

140 PRINT 

150 POR S=SEG TO 1 STEP -1 
160 PRINT S;“ 

: 170 NEXT S 
í 180 PRINT 
\ 190 PRINT 
200 PRINT "FOGO..." 

< 210 STOP 


Vale a pena anotar algumas diferenças 
importantes entre este programa e o que 
mostramos anteriormente, usando o co¬ 
mando IF: 

1. a variável SEG (valor inicial da conta¬ 
gem regressiva) não pode ser usada 
também como variável de índice ou 
contadora. For isso usamos o valor S; 

2. o valor inicial (SEG) é menor do que o 
final (1); 

3. apesar do incremento ser 1, em valor 
absoluto, como é negativo, precisa ser 
especificado pelo comando STEP; 

4. todas as especificações do comando 
FOR podem ser constantes ou variá¬ 
veis, ou ainda expressões aritméticas 
válidas, indistintamente. 

Veja este exemplo: 


10 PRINT "QUE TABUADA VOCE 
QUER VER?" 

20 INPUT T 

30 PRINT "A PARTIR DE QUE VA¬ 
LOR?" 

40 INPUT I 

50 PRINT "ATÉ QUE VALOR?" 
60 INPUT F 
70 CLS 

80 PRINT "EIS A TABUADA DOS ";T 
90 PRINT 

100 FOR N=I TO F STEPT 
110 PRINT N;""; 

120 NEXT N 
130 STOP 


Alguns errinhos que vooê deve evitar, 

quando for usar os comandos FOR... 
NEXT: 

1. na linha com o comando FOR, não po¬ 
dem ser omitidos o sinal de igualdade 
(=), o valor inicial (constante, variável 
ou expressão), a palavra TO, o valor fi¬ 
nal (constante, variável ou expressão), 
nesta ordem] 

2. a palavra STEP é opcional, mas, se co¬ 
locada, deve ser obrigatoriamente se¬ 
guida do valor do mesmo (também 
uma constante, variável ou expressão 
válidas em BASIC); 

3. não pode existir um comando FOR 
sem o NEXT correspondente nem um 
NEXT sem FOR; 

4. é obrigatório colocar o nome da variá¬ 
vel de índice no comando NEXT; 

5. o comando FOR deve 9er encontrado 
pelo programa antes do comando 
NEXT que lhe corresponder. 


Verifique, na tabela de mensagens de 
erros (página 33), quais são os códigos 
que ocorrem quando cada uma das re¬ 
gras acima for desrespeitada na 
programação. 



t esperando 

o tempo passar... 


Uma das utilidades das alças de repe¬ 
tição é fazer o tempo passar. Em outras 
palavras, se quisermos fazer com que o 
computador aguarde um certo período 
de tempo, entre uma fase e outra de um 
programa, podemos recorrer a uma alça 
FOX NEXT com um grande número de 
repetições, mas sem nenhum comando 
de entrada ou saída a seu alcance. Quan¬ 
to maior for o número de repetições, 
maior será o tempo obtido. 

Por exemplo: 

10 PRINT "COMPUTADOR"; 

20 POR 1 = 1 TO 500 
30 NEXT I 
40 GOTO 10 

Este programa escreve a palavra 
COMPUTADOR várias vezes, uma após 
a outra, até encher toda a tela. 

Entretanto, a "alça vazia" (isto é, que 
não contém nenhum comando) das li¬ 
nhas 20 e 30 cria um aumento de tempo 
que, no TK 85 e em outros microcompu¬ 
tadores do mesmo tipo, corresponde a 
cerca de 2 segundos entre uma palavra 
e outra. 

Outro exemplo, para fazer uma pala¬ 
vra piscar na tela: 

10 PRINT "COMPUTADOR" 

20 FOR 1=1 TO 100 
30 NEXT I 
40 CLS 
50 PRINT " 

60 POR 1 = 1 TO 100 
70 NEXT I 
80 GOTO 10 

Neste programa, a linha 10 escreve a 
palavra COMPUTADOR naprimeira li¬ 
nha da tela. Em seguida, há um peque¬ 
no aumento de tempo, dado pela alça 
nas linhas 20 e 30, que faz com que esta 
palavra permaneça na tela por um certo 
tempo. Depois, a linha 40 apaga toda a 
tela. As linhas 60 e 70 criam um novo au- 
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mento de tempo, que a mantém apaga¬ 
da por igual período, e a linha 80 realiza 
a repetição do processo. 

Muitos computadores, como é o caso 
dos compatíveis com a lógica Sinclair, 
têm um comando especial para obter au¬ 
mentos de tempo, ou pausas, como são 
tecnicamente chamadas. 

Este comando é denominado PAUSE. 
Procure-o no teclado de seu compu¬ 
tador. 

O programa acima poderia ser escri¬ 
to de forma muito mais simples, usando- 
seo comando PAUSE: 

10 PRINT "COMPUTADOR" 

20 PAUSE 20 
30CLS 
40 PAUSE 20 
50 GOTO 10 

Quando o computador encontra o co¬ 
mando PAUSE, ele interrompe todo o 
processamento e continua a mostrar tu¬ 
do o que foi escrito na tela durante n qua¬ 
dros (néo número, maior que zero e me¬ 
nor que 32767, que indica ao computa¬ 
dor quantos quadros ele deve esperar). 
Normalmente, a tela é renovada, em um 
aparelho de TV, à velocidade de 60 telas 
ou quadros por segundo. Isto nos dá a 
impressão de que ela é fixa, mas na rea¬ 
lidade ele-está piscando tão depressa, 
que nem percebemos. 

Assim, no programa acima, o número 
20, depois do comando PAUSE, faz o 
computador esperar cerca de 20/60 de 
segundo, ou 1/3 de segundo, para depois 
prosseguir. 

Quais as vantagens ou desvantagens 
da alça FOR NEXT em relação ao co¬ 
mando PAUSE? 

Bem, em primeiro lugar, a pausa da¬ 
da por FOR NEXT funciona para qual¬ 
quer computador, em qualquer "dialeto" 
(variação) da linguagem BASIC. Por is¬ 
so, se você quiser fazer um programa que 
possa ser colocado em vários tipos de 
computador, use FOR... NEXT. 

Em segundo lugar, o comando PAU¬ 
SE tem uma peculiaridade: nos compu¬ 
tadores tipo TK, a cada 60 quadros (apro¬ 
ximadamente 1 segundo), a tela de vídeo 
pisca perceptivelmente, produzindo 
uma imagem pouco estável. Este efeito 
artificial não ocorre com o FOR... NEXT. 

Por outro lado, uma vantagem nítida» 
que o PAUSE tem sobre o POR... NEXT, 
é que utiliza um número menor de linhas 
do que este (portanto, o programa gasta 


menos memória, é mais curto e mais fá¬ 
cil de ser entendido). 

Vamos ver mais algumas aplicações 
interessantes para o PAUSE. 


110 PRINT "NUMERO DE VEZES" 
120 PAUSE 180 
130 PRINT 




No programa de contagem regressiva 
anterior, podemos tornar mais real a si¬ 
mulação de uma contagem se fizermos 
assim: 


10 REM — PROGRAMA PARA CON¬ 
TAGEM REGRESSIVA 

20 REM. 

30 REM 

40 PRINT "VAMOS LANÇAR UM 
FOGUETE DA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80 INPUT SEG 
90 REM 

100 REM — CONTAGEM 
REGRESSIVA 
110 REM 

120 FOR S=SEG TO 1 STEP-1 
130 PRINT S;” 

135 PAUSE 60 
140 NEXT S 
150 PRINT 
160 PRINT 

170 PRINT "FOGO..." 

O comando PAUSE funciona até gue 
alguma tecla seja pressionada. Se isto 
acontecer, e se o comando PAUSE esti¬ 
ver em execução (tempo de espera), o 
computador executa imediatamente a li¬ 
nha seguinte ao comando PAUSE. Evi¬ 
dentemente, isto não acontece com a 
programação de alças de espera de .tem¬ 
po com os comandos FOR... NEXT. O 
computador fica "congelado", não res¬ 
pondendo a nenhuma tecla (com exce¬ 
ção da tecla BREAK), durante todo o pe¬ 
ríodo de espera. 

O comando PAUSE pode ser usado 
também para apresentar várias telas de 
informação, dando tempo para gue o 
usuário as leia, para, depois, limpar a tela 
com o comando CLS e para apresentar 
em seguida nova tela... 

10PRINT 'TOGO DE ADIVINHACAO' 

20 PRINT "zzzzzzzzzzzzzzzzzzz" 

30 PRINT 

40 PRINT "NESTE JOGO, EU VOU 
SORTEAR UM" 

50 PRINT "NUMERO ENTRE 1E100, E 
VOCE" 

60 PRINT "TEM QUE TENTAR ADIVI¬ 
NHAR QUAL" 

70 PRINT "FOI." 

80 PAUSE 300 
90 CLS 

100 PRINT "GANHA QUEM ADIVI¬ 
NHAR EM MENOR" 




Neste programa, as linhas de 10 a 70 
mostram a informação a ser lida na tela 
do vídeo. Em seguida, a linha 80 provo¬ 
ca uma pausa de cerca de 5 segundos (o 
que proporciona tempo para a leitura, 
mesmo para as pessoas que lêem deva¬ 
gar! ), limpa a tela e passa para a segun¬ 
da tela de informação (linhas 100 e 110), 
dá nova pausa (menor), na linha 120, e 
assim por diante. 

Se a pessoa lê com rapidez, basta que 
ela pressione qualquer tecla ao terminar 
a leitura. Se o comando PAUSE corres¬ 
pondente ainda estiver sendo executado, 
ele é interrompido e passa imediatamen¬ 
te para a linha seguinte. 


1. 



ate 



Faça um programa para calcular a so¬ 
ma dos números inteiros de 1 a 100 
(faça duas versões para este progra¬ 
ma: uma usando alças com IF, e outra 
usando alças com FOR... NEXT). 


2. Modifique o programa acima, de mo¬ 
do a poder calcular a soma dos núme¬ 
ros inteiros entre 1 e um número qual¬ 
quer (que será fornecido por um co¬ 
mando INPUT). 

3. Faça um programa como o acima, só 
que para calcular o fatorial de um nú¬ 
mero inteiro qualquer (N!) 

Dica: N! = 2x3x4 ...x N 

Por exemplo: 5! = 2x3x4x5 
= 100 

O que acontece se eu entrar um nú¬ 
mero muito alto (por exemplo, 
32 000!)? 

4. Qual é a sequência de vedores que os 
seguintes programas mostrarão na te¬ 
la, quando executados? 

a. 10LETN=1 
20 PRINT N 
30LETN=N+2 
40IFN=9THEN STOP 
50 GOTO 20 
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b. 10LET D=0 
20LETI=0.25 
30LETD=D+I 

40IF D 2 THEN GOTO 70 
50PRINTD 
60 GOTO 30 
70STOP 

c. 10LETN=10 
20LETN=N+1 

30IF N 20 THEN GOTO 20 
40IF N 30 THEN STOP 
50PRINTN 
60 GOTO 20 

d. 10LETI= —1 
20LETS=2 
30LET S=S+1 
40IFS10 THEN STOP 
50PRINTS 

60 GOTO 30 

5. Qual é a seqüência de valores que se¬ 
rão gerados pelos seguintes coman¬ 
dos FOR? 

a. POR E=20TO 100STEP10 

b. PORX=10TO20STEP0.5 

c. FOR Z=5 TO 1STEP -0.25 

d. F0RN=34T036 

e. POR N=36 TO 34 

f. POR N=36 TO 34 STEP-1 
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7. Faça um programa para testar se o 
resultado da divisão de um número 
por outro tem resto maior do que 
zero. 


Resposta: 

A função INT obtém o maior inteiro 
presente em um número qualquer. 


6. Descubra e explique quais os erros 
nos programas seguintes: 


a. 121 FOR X=1 TO 232 STEP 3 

122 PRINT X/3 

123 NEXT Y 

Resposta: 

b. 10 FOR X$=l TO 25 
20 NEXT X$ 

Resposta: 

c. 300 POR ZZ=1 45 
310 NEXT ZZ 

Resposta: 

d. 10 FOR 1= -12 TO 12 STEP 2 
20 PRINT I; 

30 NEXT 

Resposta: 

e. 10 NEXT J 
20POR J=2T05 

Resposta: 


RESPOSTAS AOS 
EXERCÍCIOS 
ANTERIORES 


Quando o resto de uma divisão é zero, 
então o resultado da divisão é igual ao 
seu inteiro. 

10INPUTN1 

20INPUTN2 

30LET D=N1/N2 

40 IF INT (D)=D THEN GOTO 60 

50 PRINT "DEIXOU RESTO" 

55 GOTO 10 

60 PRINT "N AO DEIXOU RESTO" 

70 GOTO 10 


7. Quantos segundos esperará cada co¬ 
mando PAUSE? 

a. PAUSE 30 

b. PAUSE 600 

c. PAUSE 10/60 

d. PAUSEI 


8. Faça um programa para aceitar um 
nome qualquer pelo teclado e então 
fazê-lo piscar por 10 vezes seguidas, 
no meio da primeira linha da tela. 
Use comandos IF. 


9. Faça um programa para calcular a 
soma de 10 números quaisquer, di¬ 
gitados no teclado. Use o comando 
POR. 


10. Faça um programa para imprimir 
uma tabela das raízes quadradas dos 
números de 10 a 1000, de 10 em 10. 
Use o comando POR. 


10. Faça um programa que imprima na 
tela os números de 10 a 20. 


Resposta: 

10LETN=10 

20 PRINT N 

30LETN=N+1 

40 IF N < 20 THEN GOTO 20 

50 STOP 
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Iças dentro 
de alças 


Muitas vezes é necessário repetir den¬ 
tro de um programa alças menores den¬ 
tro de alças maiores. Embora pareça 
complicada, esta operação é fácil de ser 
feita em BASIC, desde que tomemos al¬ 
guns cuidados. 

Para servir de exemplo, vamos fazer o 
seguinte programa: 

Queremos colocar na tela a lista dos 
números da carteia da Loto, de modo 
que cada dezena comece em uma linha 
nova. Dessa forma, temos: 



e assim por diante. 

Uma maneira bem fácil de programar 
isto é a seguinte: 


dente (linha 90), ou seja, as linhas 50,60, 
70e80. 

Entretanto, dentro dessa alça, encon¬ 
tramos um segundo FOR, que determi¬ 
na a repetição, por 10 vezes, de tudo que 
se encontra entre a linha seguinte (linha 
60) e o NEXT correspondente (que está 
na linha 70). 

Portanto, a linha 60: 

60PRINT D*10+N;" 

que é a única que se encontra dentro das 
duas alças, simultaneamente, será 
executada: 

10x10= 100 vezes 

Como existe um ponto e vírgula no fi¬ 
nal dessa linha, os números impressos 
sob controle da alça interna (linhas 50 e 
70) serão colocados sucessivamente na 
mesma linha, um após o outro, com um 
espaço em branco de separação entre 
cada dois algarismos. 

A linha 80 (que só é executada depois 
que a alça se completa) foi colocada para 
provocar uma mudança de linha no final, 
ou seja, para começar uma nova dezena 
na linha imediatamente abaixo. 

Para compreendermos como duas al¬ 
ças podem ficar "aninhadas" isto é, uma 
dentro da outra, costuma-se usar o recur¬ 
so das flechinhas de retorno: 


4. agora o programa encontra a linha 70 
(NEXT N), que provoca o incremento 
da variável N de mais 1, e em seguida 
este valor é comparado com o valor fi¬ 
nal do índice, que é 9. Como ainda é 
menor do que este, a linha 60 (dentro 
da alça interna) é repetida mais uma 
vez. 

Mas agora o valor armazenado na 
variável N passou a ser 1, enquanto 
que o valor armazenado em D ainda é 
0. Portanto, calcula-se: 

D*10+Né igual a 0*10-1-1, 

ou seja, igual a 1, que é impresso na 
mesma linha que o valor 0 impresso 
anteriormente, por causa do ponto e 
vírgula; 

5. novamente o programa encontra a li¬ 
nha NEXT N, incrementa (N passa a 
ser 2, testa, etc.). Depois de repetir is¬ 
to até que 9 seja atingido, teremos uma 
linha impressa assim: 


0123456789 




10 REM- TABELA PARA APOSTAR 
NALÜPO 

20 REM. 

30 REM 

40 POR D=0TO9 
50POR N=0TO9 
60 PRINT D* 10+ N;" 

70 NEXT N 
80 PRINT 
90 NEXT D 
100STOP 


Podemos ver facilmente que este pro¬ 
grama tem duas alças, uma dentro da 
outra: 



O primeiro POR encontrado (linha 40) 
determina a rep>etição, por 10 vezes, de 
tudo que se encontra entre a linha se¬ 
guinte (linha 50) e o NEXT correspon- 


6. portanto, ao terminar a alça que vai de 
50 a 70, o programa executa a linha se¬ 
guinte, que é 80 (PRINT), mudando 
de linha na tela, e cai na linha 90, que 
é um NEXT D, ou seja, que incremen¬ 
ta o valor armazenado na contadora D, 
testa se é menor que 9, etc Como não 
é igual a 9 ainda, o programa repete 
a linha logo abaixo do FOR D, ou se¬ 
ja, a linha 50. Como esta é uma linha 
POR, também repete-se tudo de no¬ 
vo, como acima, só que o valor de D é 
agora igual a 1. Portanto a linha a ser 
impressa passa a ser: 


2. ao encontrar a linha 50, o novo co¬ 
mando FOR inicializa a variável con¬ 
tadora N como o valor inicial de 0 e es¬ 
pecifica o valor final como 9, e o incre¬ 
mento como 1; 

3. a linha 60 é impressa pela primeira 

vez. Como D é zero e N também é ze¬ 
ro, ainda teremos como resultado da 
expressão D* 10 -l- N o valor zero, que é 
impresso; e assim por diante. 


012345678 
10 11 12 13 14 15 16 17 18 19 




f 


40 FOR P=0TO9 
50FOR N = 0TO9 

60PRINÍ D*10+N; ” 
70NEXTN 
80 PRINT 
90NEXT*D 


Ao ser executado o programa pela pri¬ 
meira vez, acontece o seguinte: 

1. ao encontrar a linha 40, o programa 
inicializa a variável contadora D com 
o valor inicial 0, e especifica 9 como o 
valor final (máximo) e 1 como o incre¬ 
mento (STEP); 


52 





















Vamos ver como ficariam, em uma ta¬ 
bela, os valores de N e D em cada repe¬ 
tição das duas alças: 


LINHA 

D 

N 

D*10+N 

40 

0 

0 

0 

50 

0 

0 

0 

50 

0 

1 

1 

50 

0 

2 

2 

50 

0 

3 

3 

50 

0 

4 

4 

50 

0 

5 

5 

50 

0 

6 

6 

50 

0 

7 

7 

50 

0 

8 

8 

50 

0 

9 

9 

40 

1 

0 

10 

50 

1 

I 

11 

50 

1 

2 

12 

50 

1 

3 

13 


etc. 


Bela tabela, você pode observar que os 
dois índices (D e N) das alças variam re¬ 
gularmente (sáo incrementados). Só que 
o índice da alça mais interna varia mais 
depressa, e o índice da alça mais exter¬ 
na, mais devagar. 


100 FOR 1 = 1 TO 3 
110FOR 1 = 1104 
120NEXTI 
130NEXTI 


Da mesma forma, devemos evitar a 
modificação da variável-índice da alça 
dentro da mesma (por exemplo, através 
do comando LET ou do comando IN- 
PUT), de modo a evitar erros lógicos. En¬ 
tretanto, isto é permitido pelo interpreta¬ 
dor BASIC. Por exemplo: 

10FOR 1=1 TO 10 
20 LET 1=1 + 1 
30PRINTI 
40NEXTI 

Coloque este programa no computa¬ 
dor e verifique qual é o resultado. 



m programa 
completo 


d. especificação das fórmulas de 
cálculo 

e. esquema geral do programa 
(etapas) 

f. codificação em linguagem BA¬ 
SIC 

g. teste com alguns dados conheci¬ 
dos 

h. documentação 

a. Especificação dos 
dados de entrada 

Parâmetros de operação do pro¬ 
grama: 

CL$ - nome da classe (por exem¬ 
plo, 5? série A) 

NA - número de alunos na classe 
NM - número de matérias que a 
classe tem 

Dados individuais (para cada alu¬ 
no) 

NO$ - nome 
NU - número da classe 
NO - nota em uma determinada 
matéria 

b. Especificação dos 
dados de saída 


Podemos colocar várias alças, umas 
dentro das outras. 

A única regra que devemos seguir à 
risca é a seguinte: não pode haver v cru¬ 
zamentos" entre os FOR e respectivos 
NEXT das alças emparelhadas. Por 
exemplo, o seguinte programa provocará 
uma mensagem de erro: 

100 POR 1 = 1 TO 3 
110 POR J=1 T02 
120PRINTI, J 
130 NEXT I 
140 NEXT J 

Se colocarmos as flechinhas que indi¬ 
cam os pares POR... NEXT, veremos que 
há um cruzamento entre elas, o que indi¬ 
ca o erro sintático: 


►100 FOR 1 = 1 TO 3 
* 110POR J=1 TO 2 
120PRINT I,J 
M— 130 NEXT I 
L- 140 NEXT J 


Outro arranjo não permitido é usar a 
mesma variável-índice para duas ou mais 
alças que estejam aninhadas. Embora is¬ 
to, muitas vezes, não seja indicado pelo 
computador oomò um erro sintático, na¬ 
turalmente pode provocar erros lógicos 
muito difíceis de serem detectados. 


Agora você já conhece um número su¬ 
ficiente de comandos em BASIC para 
tentar seus primeiros programas comple¬ 
tos. Para exemplificar os passos de de¬ 
senvolvimento de um programa de maior 
porte, vamos programar iuntos a seguin¬ 
te tarefa: 

Faça um programa para calcular a 
média simples das matérias para ca¬ 
da um dos alunos de uma classe. Ao 
final, o programa deve mostrar a mé¬ 
dia geral da classe. Além disso, o 
programa deve informar para cada 
aluno as suas notas, a sua média, e se 
foi aprovado (nota igual ou maior que 
7, se ficou para recuperação (nota 
maior que 5 e menor que 7) ou se foi 
reprovado (nota menor que 5). Tanto 
o número de alunos quanto o número 
de matérias são variáveis (isto é, são 
diferentes para cada série, e devem 
ser informados ao programa). 

Solução: 

Vamos dividir o nosso trabalho de 
programação nas seguintes etapas: 

a. especificação dos dados de en¬ 
trada 

b. especificação dos dados de saí¬ 
da 

c. especificação das constantes in¬ 
ternas 


MG - média global da classe 
MA - média geral de cada aluno 

c. Especificação das 
constantes internas 

AP - nota de aprovação (> = 7) 
RR - nota de recuperação (> = 5 
e<7) 

RP - nota de reprovação (< = 5) 

d. Especificação das 
fórmulas de cálculo 


S - soma das notas de cada 
aluno 

MA = S/ND - média geral do alu¬ 
no 

e. Esquema geral 
do programa 

O programa terá as seguintes par¬ 
tes: 

1. identificação do programa 

2. instruções breves de utilização 

3. entrada de dados paramétricos 
(nome da classe, número de 
alunos e de matérias) 

4. alça de entrada dos alunos: en¬ 
trada do número de classe e 
nome 
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5. alça de entrada das notas de 
cada aluno 

6. cálculo da média do aluno 

7. acumulação da soma das mé¬ 
dias da classe 

8. impressão dos resultados de 
um aluno 

9. cálculo e impressão da média 
global 

10. fim do programa 

f. Codificação em 
linguagem BASIC 


10 REM. 

20 REM - MEDIAS 1.00 JAN 85 
30 REM - CALCULO DE MEDIAS DE UMA 
40 REM - CLASSE P/ SINCLAIR 
50 REM - (C) 1985 R. SABBATINI 

60 REM. 

70 REM 

80 REM — 1. IDENTIFICACAO 
90 REM 

100 PRINT TAB 12; "MEDIA 1.00 " 

110 PRINT "CALCULO DAS MEDIDAS DA CLASSE" 
120 PRINT 
130 PRINT 
140 REM 

150 REM — 2. OBJETIVO 
160 REM 

170 PRINT "ESTE PROGRAMA TEM POR OBJETIVO" 
180 PRINT "CALCULAR AS MEDIAS GERAIS 
DOS ALUNOS " 

190 PRINT ”DE UMA CLASSE, A PARTIR DAS" 

200 PRINT "SUAS NOTAS NAS DISCIPLINAS." 

210 PRINT 

220 PRINT "FORNEÇA OS SEGUINTES DADOS" 

230 PRINT "PARA A CLASSE:" 

240 PRINT 
250 REM 

260 REM — 3. DADOS PARAMÉTRICOS — 

270 REM 

280 PRINT "NOME DA CLASSE?" 

290INPUT CL$ 

300 PRINT "NUMERO DE ALUNOS NA CLASSE?" 

310 INPUT NA 
320 NA = INT (NA) 

330IF NA <1 THEN GOTO 310 

340 PRINT "NUMERO DE DISCIPLINAS?" 

350 INPUT NM 
360 NM = INT (NM) 

370 IF NM < 1 THEN GOTO 350 
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375 LET MG = 0 
380 REM 

390 REM — 4. ENTRADA DOS ALUNOS 
400 REM 

405 FOR ALUNO = 1 TO NA 
410 CLS 

420 PRINT "CLASSE : CL$ ;" - 

430 PRINT "ALUNO NO."; ALUNO 

440 PRINT " = = = = = = = = = = = = = = = = " 

450 PRINT 

460 PRINT "DIGITE OS DADOS DESTE ALUNO:" 
470 PRINT 

480 PRINT "NOME?" 

490INPUT NO$ 

500 PRINT "NUMERO DA CLASSE?" 

510 INPUT NU 
520 PRINT 
530 REM 

540 REM — 5. ENTRADA DAS NOTAS — 

550 REM 

560 LET S = 0 

570 FOR NOTA = 1 TO NM 

580 PRINT "NOTA DA MATÉRIA" ; NOTA 

590 INPUT NO 

600IF NO < 0 THEN590 

610IF NO > 10 THEN 590 

620 LET S = S + NO 

630 NEXT NOTA 

635 LET MA = S/NM 

640 PRINT 

650 PRINT "MEDIA GERAL = "; MA 
660 LET MG = MG + MA 
670 NEXT ALUNO 
680 REM 

690 REM —- 6. CALCULO MEDIA GLOBAL — 
700 REM 
710 CLS 

720 PRINT "MEDIA DA CLASSE" ; MG/NA 
730 STOP 
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i 9.7. Descreva as diferenças básicas de funcionamento entre os comandos 
LET e INPUT. O que têm eles em comum? 

Resposta: _ 


9.8. Mostre como aparecerá a linha de baixo da tela, quando o programa 
encontrar os seguintes comandos (dica: cursor K ou L, com ou sem as¬ 
pas): 




9.9. Como se deve proceder para interromper a execução do programa, ca¬ 
so ele esteja parado nas linhas acima? 

Resposta: _ 


9.10.Cite três usos para o comando REM em um programa. 

Resposta: 1. _ 

2 . _ 


3. 


9.11. O que é um comando executável? Dê três exemplos. 
Resposta: 1. _ 


2 . 

3. 


9.12. Identifique na coluna à esquerda cada comando em BASIC, com a 
função que ele realiza na coluna à direita: 


a. RUN 

b. NEW 

c. STOP 

d. PRINT 

e. LET 

f. REM 

g. INPUT 

h. PAUSE 

i. GOTO 

j. CLS 

l. FOR 

m. NEXT 
'n. LIST 

o. CONT 

p. EDIT 

q. IF 


( ) armazena algo em uma variável 

( ) linha de comentário 

( ) inicia a repetição de uma alça 

( ) executa um programa 

( ) continua um programa interrompido 

( ) mostra um resultado na tela 

( ) testa uma condição 

( ) limpa a tela 

( ) continua a repetição de uma alça 

( ) interrompe a execução do programa 

( ) apaga um programa da memória 

( ) entra um valor pelo teclado 

( ) desvia o programa para outra linha 

( ) lista um programa na tela 

( ) corrige uma linha de programa 

( ) provoca uma pausa no programa 



















9.13. Defina: 


a. variável somadora: —---- 

b. variável contadora:--- 

c. alça de repetição: ----- 

d. cláusula lógica: -- 

e. operador relacional: ---— 

f. alça sem fim: --- 

g. aninhamento de alças: - 

9.14. Identifique os elementos básicos de uma alça: 

FOR 1 = 1 TO 12 STEP 2 

9.15. O que o programa abaixo vai mostrar na tela ao ser executado? 

10 FOR I = 1 TO 100 STEP 10 
20 FOR I = I TO 1 + 2 
30 PRINT J; 

40 NEXT J 
50 NEXT I 

Resposta: 

9.16. O que acontecerá ser for adicionada a seguinte linha ao programa 
acima? 

45 PRINT 

9.17. Faça uma programa para gerar na tela todas as combinações possiveis 
de preenchimento do cartão da Loteria Esportiva. Por exemplo: 

1 - COLUNA 1 3 - COLUNA 1 

2 - COLUNA 1 COLUNA 3 

COLUNA 2 

Dica: numere as colunas 1, 2 (do meio) e 3. 

9.18. Cite duas regras importantes que não podem ser violadas no aninha¬ 
mento de alças. 

Resposta: ---- 


Cite duas vantagens do comando FOR para construir alças, em relação 
ao comando IF. 

Resposta: _—---- 


9.19. Modifique o programa para o cálculo das médias de uma classe (pá¬ 
ginas 54 e 55), de modo a permitir colocar as notas-limites para apro¬ 
vação, recuperação e reprovação, por meio de comandos INPUT 
(variáveis). 

9.20. Faça um programa para apresentar na tela três exercícios de tabua¬ 
da de multiplicar e testar se o resultado apresentado pelo aluno foi 
correto. O programa deve dizer, ao final, quantos exercícios foram 
resolvidos corretamente pelo aluno. 


5ô 
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C A P í T U L O 


■■ 


ORTE E AZAR NO 
COMPUTADOR 


Para muitas pessoas, o jogo é uma 
das coisas mais interessantes e diver¬ 
tidas que se pode fazer com um com¬ 
putador. Se o jogo incluir efeitos de 
acaso, sorte ou azar, melhor ainda! 

Este capítulo será quase todo dedi¬ 
cado aos jogos e aos modos de 
programá-los. Vamos começar com 
um joguinho bem simples, de adivi¬ 
nhação, depois estudar como fazer 
um programa útil ao ensino e, final¬ 
mente, vamos programar alguns jo- 
guinhos que utilizam gráficos na tela. 

Para introduzir o acaso (sorteio de 
um dado, por exemplo) em um jogo, 
é necessário conhecer uma função 
própria da linguagem BASIC que 
permite sortear números. 

Esta função é chamada de RND, 
abreviatura da palavra inglesa RAN- 
DOM, ou seja, aleatório (ao acaso). 


pé sobre a borda! O espaço amostrai 
da moeda é igual a 2. O espaço 
amostrai do dado é igual a 6. 

A probabilidade de que um deter¬ 
minado número aleatório saia em um 
sorteio é definida como o inverso do 
número das alternativas possíveis. 

Assim, por exemplo, a probabili¬ 
dade de sair no dado um determina¬ 
do número é de: 

1 um evento em 

6 seis alternativas possíveis 

Expressando em percentagens, ha¬ 
veria a probalidade de sair um núme¬ 
ro qualquer como sendo: 

100 x 1 = 16,666(5% 

6 

Em outras palavras, se jogarmos 
um dado 100 vezes, cada uma das fa¬ 
ces será sorteada cerca de 16 vezes 
aproximadamente. Para calcular, 
portanto, quantas-vezes se espera um 
determinado resultado, multiplica¬ 
mos a probabilidade pelo número de 
vezes em que ser realizará o sorteio. 


A função RND, portanto, serve pa¬ 
ra sortear números aleatórios. 

Números aleatórios são números 
escolhidos ao acaso pelo computa¬ 
dor, a partir de certo conjunto maior 
de números. 

Vamos imaginar, por exemplo, co¬ 
mo é o sorteio de um número em um 
dado. 

Ao lançarnjos o dado, a face que 
ficar para cima será o número sortea¬ 
do. 



Naturalmente só temos seis alterna¬ 
tivas possíveis no lançamento do da¬ 
do. A este conjunto de números cha¬ 
mamos de espaço amostrai. O núme¬ 
ro aleatório só poderá ser um destes 
seis. 

Outro exemplo seria uma moeda, 
no jogo de cara ou coroa. Só temos 
aqui duas alternativas. Vamos excluir 
a possibilidade de a moeda ficar de 


Quantas vezes, por exemplo, se es¬ 
pera que saia coroa, se lançarmos 
uma moeda 200 vezes? 

1/2 x 200 = 0,5 x 200 = 100 vezes 

1/2 é a probabilidade de que coroa 
seja sorteada um um lançamento. 

Note que a probabilidade de sair 
cara é a mesma de sair coroa, ou se¬ 
ja, 50%. Tanto neste caso, como no 
caso de um dado, dizemos então que 
a distribuição probabilística e UNI¬ 
FORME, ou seja, todos os números 
possíveis têm a mesma probabilidade 
de ser sorteados. 


A função RND 


Como podemos utilizar esta função 
do BASIC para simular o sorteio de 
números aleatórios uniformes? 

Você se lembra de que uma função 
em BASIC efetua sempre um cálculo 


ou devolve um resultado, a partir de 
um dado ou argumento que dermos a 
ela dentro do programa. 

Para calcularmos, por exemplo, a 
raiz quadrada do número 25, fazemos 
assim: 

LET R = SQR (25) 

sendo 25 o dado ou argumento. A 
função SQR, quando chamada, re¬ 
torna o resultado (no caso, 5), que é 
armazenado na variável indicada por 
LET. 

Podemos também colocar a função 
dentro de uma expressão: 

LET RAIZ = 100 * SQR (25)/3 

ou ainda, dentro de um comando 
PRINT: 

PRINT SQR (25) 

A função RND é um pouco diferen¬ 
te. Ela não precisa de um argumento. 
Bastaria colocar, por exemplo, 

' PRINT RND 

para sortear um número aleatório ou 
usar RND dentro de uma expressão 
LET. 

Em segundo lugar, a função RND 
não faz nenhum cálculo matemático, 
como no caso da raiz quadrada 
(SQR) e outras funções em BASIC 
deste tipo. 

Ela apenas retorna um número 
aleatório de distribuição uniforme, 
compreendido entre zero (0) e um 

d). 

Cada vez que a função RND é usa¬ 
da , um nrhero aleatório inteiramente 
diferente é sorteado. 

Por isso, a função RND é chamada 
de geradora de números aleatórios. 

O conceito de número aleatório, 
no caso da função RND é parecido 
com o do sorteio de dados e moedas, 
só que o número sorteado não é um 
número inteiro (1, 2, 3 etc.)* mas um 
número fracionário, entre 0 e 1. 

Se colQcarmos, por exemplo, no 
computador o seguinte programa: 

10 FOR 1=1 TO 10 
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20 PRINT RND 
30 NEXT I 

sortearemos em seguida 10 números 
aleatórios, que serão impressos na te¬ 
la assim: 

» 

0.03892129 

0.12455412 

0.67129093 

0.00112232 

0.48983312 

0.87811121 

0.11201232 

0.00989823 

0.01909123 

0.53219883 

Se você executar novamente o pro¬ 
grama, um novo conjunto de 10 nú¬ 
meros totalmente diferente do pri¬ 
meiro será mostrado na tela. Um nú¬ 
mero deste tipo nunca se repete. 

Na realidade, o nosso "sorteador" 
nào é tão perfeito assim. O número 1 
"redondo" (1.000000000) nunca é 
sorteado. Os limites do sorteio caem 
então entre 0.000000000 (zero perfei¬ 
to) e 0.999999999. 

U sando RND 

em jogos 

O gerador de números aleatórios 
do BASIC é do tipo universal, ou se¬ 
ja, ele pode ser usado para simular 
qualquer tipo de sorteio (dados, moe¬ 
das, baralhos etc.). Vamos ver como 
isto é feito. 

Comecemos com o caso mais sim¬ 
ples: a moeda. 

Cada evento probabilístico (em ou¬ 
tras palavras, o que pode resultar do 
lançamento honesto de uma moeda) 
tem a probabilidade de 0,5. 

Portanto, para simular o lançamen¬ 
to de uma moeda com a função RND, 
podemos fazer simplesmente isto: 

1. sorteamos um número fracioná¬ 
rio de 0 a 1 com a função RND; 

2. testamos se este número é me¬ 
nor do que 0,5. Se for,' consideramos 
que saiu cara, por exemplo. Se for 
maior do que 0,5, consideramos que 
saiu coroa (podia ser o contrário, pois 
esta é uma convenção que depende 
apenas do programador). 


Vejamos um programa que realiza 
isto: 

10 LET R = RND 

20 IF R <0.5 THEN PRINT 
"CARA" 

30 IF R> = 0.5 THEN PRINT, 
"COROA" 

40 GOTO 10 

Vamos interpretar o que faz este 
programa: 

- linha 10 = sorteie um número fra¬ 
cionário entre 0 e 1 e armazene-o na 
variável R; 

- linha 20 = se R for menor do que 
0.5, imprima a palavra CARA; 

- linha 30 = se R for maior ou igual a 
0.5, imprima a palavra COROA; 

- linha 40 = volte para a linha 10 (no¬ 
vo sorteio). 

Se executarmos este programa, 
poderemos ter o seguinte resultado: 

CARA 

COROA 

CARA 

CARA 

CARA 

COROA 

CARA 

COROA 

COROA 

e assim por diánte, até encher total¬ 
mente a tela. Observe que, neste sor¬ 
teio, saíram apenas três coroas e cin¬ 
co caras. Mas não havíamos dito que 
o número de caras e coroas seria 
igual? 

Bem, isto só vai acontecer se sor¬ 
tearmos um número muito grande de 
vezes! Quanto mais sortearmos, mais 
semelhante será a ocorrência dos 
dois eventos. Esta é a chamada lei 
dos grandes números. 

Como a função RND tornou possí¬ 
vel um sorteio "honesto" da moeda? 

Você se lembra de que nós disse¬ 
mos que a distribuição aleatória do 
gerador RND é uniforme, não é? 

Isto significa simplesmente que ca¬ 
da um dos números a serem sorteados 
tem a mesma probabilidade. Em con- 
seqüência, se dividirmos este conjun¬ 
to de números em duas partes (menor 
e maior do que 0,5 respectivamente), 
a probabilidade de sair um número 
que caia numa destas duas metades 
continua sendo igual, certo? 


Como dividimos o espaço amostrai 
em apenas duas possibilidades, será 
de 0,5 a probabilidade de cada uma 
delas! 

Podemos estender este raciocínio 
para outras divisões: em 3, 4, 5, 10 
possibilidades etc. 

Mas há um inconveniente: teremos 
que aumentar o número de IF no pro¬ 
grama, para poder testar todas as 
possibilidades. 

Existe, felizmente, um meio mais 
fácil de fazer isto. Usaremos um arti¬ 
fício matemático muito simples e fácil 
de entender, que serve para qual¬ 
quer ocasião. 

Vamos agora tomar como exemplo 
o dado. 

O dado tem um espaço amostrai de 
6: existem apenas seis possibilidades 
de sorteio. 

Se multiplicarmos o resultado da 
função RND por 6, teremos o seguin¬ 
te: 

menor número que pode ser 
sorteado por RND = 0 
multiplicado por 6 =6x0 = 0 

maior número que pode ser 
sorteado por RND =0.999999999 
multiplicado por 6 =5.999999994 

Teremos, portanto, um número fra¬ 
cionário, que pode ser desde 0 até 
5.999999994 

Como queremos um número intei¬ 
ro distribuído entre 1 e 6, basta usar¬ 
mos a seguinte expressão em BASIC: 

INT (RND*6) + 1 

Vamos analisar o que esta expres¬ 
são faz com o número sorteado: 

- primeiro, ela multiplica o número 
aleatório por 6, dando, portanto, um 
número aleatório entre 0 e 
5.999999994; 

- em seguida, calcula o inteiro deste 
número (ou seja, o dígito à esquerda 
do ponto) e obterá um número de 0 a 

5; 

- finalmente, soma 1 a este número. 
Portanto, teremos um número de 1 a 
6 . 

Conseguimos programar um sor¬ 
teador de dados! 
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Vamos tomar um exemplo com al¬ 
guns números aleatórios, para enten¬ 
der como funcionam estas transfor¬ 
mações: 


O mais grave, entretanto, é que, 
quando ligamos o computador pela 
primeira, vez, o gerador aleatório 
sempre usa uma "semente" fixa, que 
é 0.0022735596. 




RND 

RND* 6 

INT (RND *6) 

INT (RND*6) + 1 

0.0000000 

0.0000000 

0 

1 

0.0025342 

0.0152052 

0 

1 

0.3451235 

2.070741 

2 

3 

0.9999999 

5.9999994 

5 

6 • 


Para ver um maior número de 
exemplos, coloque no computador o 
programa abaixo: 

10 LET R = RND 

20 PRINT R; R*6; INT (R*6); INT 
(RND*6) + 1 
30 GOTO 10 



aleatório mesmo? 


Isto significa que o joguinho que 
você programar poderá estar "vicia¬ 
do", desde que se saiba qual é a se- 
qüência inicial. 

Para evitar isto, o BASIC tem um 
comando chamado RAND, que pode 
ser usado logo no começo do progra¬ 
ma, para gerar uma "semente" ao 
acaso, ou seja, a primeira semente da 
série de sorteios. 

Para todòs so efeitos, precisamos 
dar um comando RAND ao computa¬ 
dor apenas uma vez antes de cada sé¬ 
rie de sorteios. 

Por exemplo: 

5 RAND 

10 PRINT INT (RND*2) + 1; 

20 GOTO 10 


Agora podemos programar o nosso 
primeiro joguinho, para sortear um 
dado quantas vezes quisermos: 

10REM — JOGO DE SORTEIO DE 
UM DADO 

20 REM — PARA MICROS TIPO ZX 

30 REM --- 

40 REM 

50 PRINT "SORTEIO DE UM DADO" 
60 PRINT 

70 PRINT "QUANTAS VEZES QUER 
LANÇAR O DADO?"; 

80 INPUT NV 
90 PRINT NV 
100 PRINT 

110 FOR 1=1 TONV 

120 PRINT "SORTEIO NO."; I;" = "; 

INT (RND*6) + 1 
130 NEXT I 
140 STOP 


Um exemplo de jogada seria o se¬ 
guinte: 


fí SORTEIO DE UM DADO 
QUANTAS VEZES QUER 
LANÇAR O DADO? 

4 

SORTEIO N.° 1 = 5 
SORTEIO N.° 2=1 
SORTEIO N.° 3 = 3 
SORTEIO N.° 4=1 
[9/140 


Teoricamente, um bom gerador de 
números aleatórios nunca deveria re¬ 
petir a mesma seqüência de números 
sorteados. Entretanto, isto é impossí¬ 
vel de se conseguir na prática, devi¬ 
do à maneira como eles são progra¬ 
mados na memória ROM do compu¬ 
tador. 


vai sortear números 1 e 2 ao acaso. A 
linha 5, com o comando RAND, será 
uma sementinha aleatória inicial, de 
modo que ninguém conseguirá advi- 
nhar a seqüência de sorteios. 

Note bem: não confunda o coman¬ 
do RAND com a função RND. 


Explicando de maneira simplifica-, 
da, um gerador interno de números 
aleatórios funciona da seguinte ma¬ 
neira: 


Um número aleatório, ao ser gera¬ 
do pela função RND, fica armazena¬ 
do internamente em uma memória de 
trabalho. Uma segunda vez que a 
função RND for chamada, ela trans¬ 
forma este número armazenado por 
um processo matemático especial, 
para gerar um outro número aleató¬ 
rio. Este processo se repete tantas ve¬ 
zes quantas a função RND for chama¬ 
da. 


Por isso, dizemos que o gerador 
aleatório precisa de uma "semente" 
para funcionar. O número gerado em 
cada chamada serve de semente para 
o próximo. A seqüência então é 
pseudo-aleatória, e depois de alguns 
milhões de sorteios pode se repetir 
novamente. 



1. Faça um programa para simular 
várias vezes o sorteio de uma moeda 
(o usuário informa quantas vezes ele 
quer). 

, 

2. Modifique o programa acima para 
contar quantas vezes saiu cara e 
quantas vezes saiu coroa, informando 
o resultado ao final: 




SORTEIO DE UMA 
MOEDA 45 VEZES 






SAÍRAM 19 CARAS 


(42.22222%) 

SAÍRAM 26 COROAS 




(57.77777%) 
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3. Indique qual o número aleatório 
mínimo e máximo que podem sair, 
em função das expressões abaixo: 

Mínimo Máximo 

a. INT (RND)_ 

b. INT (RND*8) + 2_ 

c. INT (RND*2)-1_ 

d. RND/2_ 

e. RND*RND_ 

4. Teste no computador qual será o 
resultado dos seguintes programas: 

a. 10 PRINT RND (0) 

20 GOTO 10 


b. 10 PRINT RND (1) 

20 GOTO 10 

# 

5. Faça um programa para sortear as 
cartas de um baralho, mostrando o 
seu valor ou figura na tela. 

Dica: as cartas de um baralho são: 
2, 3, 4, 5, 6, 7, 8, 9, 10, J, Q, K e A, 
em quatro naipes (espadas, copas, 
paus e ouros). 

Faça dois sorteios no programa: 
um para sortear a figura, outro para 
sortear o naipe. Depois apresente o 
resultado assim: 


A CARTA SORTEADA 
FOI 5 DE COPAS. 


A CARTA SORTEADA 
FOI VALETE DE PAUS. 

e assim por diante. 


6. Faça um programa para imprimir 
20 sorteios de um número aleatório R, 
calculando e imprimindo em cada 
sorteio as seguintes transformações 
do programa: 

a. R*10 

b. 1+ INT (R*10 ) 

c. 10 +INT (R*10 ) 

7. O que fazem os programas abaixo? 

a. 10 POR 1=1 TO INT (RND*200) 
20 NEXT I 
30 CLS 
40 PRINT I 
50 LET 1 = 1 + 1 
60 GOTO 10 


b. 10 LET T = 1 + INT (RND*30 ) 

20 PRINT TAB T;"*"; 

30 CLS 
40 GOTO 10 

8. Escreva as expressões com a fun¬ 
ção RAND, necessárias para sortear 
números aleatórios que simulem os 
seguintes jogos: 

a. roleta (números 0 a 35)_ 

b. palitinho (0 a 5 palitos)_ 

c. loto (números 0 a 99)_ 

9. Faça um programa que sorteie 10 
vezes um número aleatório inteiro, 
compreendido entre um mínimo de 
50 e um máximo de 100 (inclusive). 

10. Qual é o número esperado de ve¬ 
zes que: 

a. sairá o número 6 em um dado 

lançado 300 vezes?_ 

b. sairá o ás em 20 cartas retiradas 

de 20 baralhos?_ 



ogos interativos 


tador oíerece na programação de jo¬ 
gos é sua interação com a pessoa. Po¬ 
demos fazer com que o computador 
jogue com uma pessoa para ver quem 
ganha. 


Um jogo que só pode sortear coisas 
não é muito interessante, pois logo a 
gente se cansa. Além disso, é mais 
divertido usar uma moeda, um dado 
ou um baralho de verdade! 

A grande vantagem que o compu- 


Programar um jogo deste tipo é fá¬ 
cil. Basta usar os comandos: 

RND - para sortear alguma coisa 
INPUT - para pegar respostas (ou jo¬ 
gadas) do usuário. 

IF - para testar se é igual ou di¬ 
ferente do sorteado 
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Vamos começar com um jogo bem 
simples: o tradicional cara ou coroa. ’ 

OBJETIVO DO JOGO 
"CARA OU COROA" N? 1: 


O computador pergunta à pessoa o 
que irá aparecer: cara ou coroa. Em 
seguida, sorteia a moeda e mostra se 
a pessoa acertou. Se ela errou, quem 
ganha é o computador. Se ela acer¬ 
tou-, o computador perde. 


10 REM — JOGO DE CARA OU 
COROA N? 1 

20 REM. 

30 REM 
40 RAND 

50 PRINT "CARA OU COROA" 

60 PRINT "==============" 

70 PRINT 

80 PRINT "ESCOLHA O QUE VO¬ 
CÊ QUER:" 

90 PRINT 

100 PRINT "1 = CARA 2 = COROA" 
110 PRINT 

120 PRINT "DIGITE UM NUMERO 1 
OU 2" 

130 INPUT JOGO 
140 IF JOGO < 1 THEN GOTO 120 
150 IF JOGO > 2 THEN GOTO 120 
160 REM 

170 REM — SORTEIO DA MOEDA 
180 REM 

190 LET FACE =1 + INT (RND*2) 
200 PRINT 

210 IF FACE = 1 THEN PRINT "SAIU 
CARA" 

220 IF FACE = 2 THEN PRINT "SAIU 
COROA" 

230 REM 

240 REM — VERIFICA QUEM GA¬ 
NHOU 
250 REM 
260 PRINT 

270 IF JOGO = FACE THEN 300 
280 PRINT "EU GANHEI" 

290 GOTO 310 

300 PRINT "VOCE GANHOU" 

310 STOP 


Para jogar outra partida, digite 
RUN novamente ou então modifique 
o programa, substituindo a linha 310 
por 

310 GOTO 70 


Vamos fazer agora um jogo um 
pouco mais sofisticado: 

OBJETIVO DO JOGO 
"CARA OU COROA" N? 2: 


O computador pergunta a pessoa o 
que irá aparecer: cara ou coroa. Em 
seguida, sorteia a moeda e mostra se 























a pessoa acertou. Os sorteios são re¬ 
petidos^ vezes. Ganha quem acertar 
maior número de vezes. 

Náo precisa apagar da memória do 
computador o jogo anterior. Basta 
modificar ou inserir as linhas que são 
diferentes na listagem abaixo: 


10 REM — JOGO DE CARA OU 
COROA N? 2 

20 REM.-. 

30 REM 
40 RAND 

42 LET NCOMP = 0 

44 LET NJOG = 0 

50 PRINT "CARA OU COROA" 

60 PRINT "= = = = = = = = = =" 
62 PRINT "QUANTAS VEZES 
QUER JOGAR ?" 

64 INPUTNV 
66 FOR N = 1 TO NV 
70 PRINT 

75 PRINT "JOGADA N?" ; N 
80 PRINT "ESCOLHA O QUE VO¬ 
CÊ QUER 
90 PRINT 

100 PRINT "1 = CARA 2 = CO¬ 
ROA" 

110 PRINT 

120 PRINT "DIGITE UM NÚMERO 1 
OU 2" 

130INPUT JOGO 

140IF JOGO < 1 THENGOTO 120 
150 IF JOGO > 2 THEN GOTO 120 
160 REM 

170 REM - SORTEIO DA MOEDA 
180 REM 

190 LET FACE =1 + INT (RND * 2) 
200 PRINT 

210 IF FACE = 1 THEN PRINT "SAIU 
CARA" 

220 IF FACE = 2 THEN PRINT "SAIU 
COROA" 

230 REM 

240 REM — VERIFICA QUEM GA¬ 
NHOU 
250 REM 
260 PRINT 

270 IF JOGO = FACE THEN 300 
280 PRINT "EU GANHEI" 

28S LET NCOMP = NCOMP + 1 
290 GOTO 310 

300 PRINT "VOCE GANHOU" 

305 LET NJOG - NJOG + 1 
310NEXT N 
320 REM 

330 REM — VERIFICA NUMERO FI¬ 
NAL DE PONTOS 
340 REM 

350 PRINT "EU ACERTEI”; 

NCOMP-" VEZES" 

360 PRINT '"VOCE ACERTOU" 
;NJOG;" VEZES" 

370 PRINT 

380 IF NJOG > NCOMP THEN 
PRINT "PARABÉNS, VOCE GA¬ 
NHOU" 


390 IF NJOG < NCOMP THEN 
PRINT "EU SOU O CAMPEAO" 
400 IF NJOG = NCOMP THEN 
PRINT "EMPATE" 

410 STOP 

As diferenças entre este programa 
e o número 1 são as seguintes: 

- a variável NCOMP, zerada na linha 
42, servirá para contar o número de 
vitórias do computador; 

- a variável NJOG, zerada na linha 
44, servirá para contar o número de 
vitórias do jogador; 

- a variável NV indica o número de 
sorteios que serão realizados e que 
controla a alça que vai da linha 66 até 
a linha 310 


1. Faça um programa de cara ou co¬ 
roa semelhante ao anterior, usando, 
porém, um dado, ao invés de uma 
moeda. 

Dicas: Na linha 130 a pessoa deve 
entrar um número de 1 a 6. Modifi¬ 
que as linhas anteriores (para instru¬ 
ções) e a linha 150 (teste): 

-modifique a expressão da linha 
190; 

- modifique as linhas 210 e 220 que 
anuciam o resultado; 

- modifique as linhas de título. 

2. Faça um programa que sorteie 
dois dados, e mostre a soma dos nú¬ 
meros sorteados. Se a soma for igual 
a 7, pare de sortear. Se for diferente 
de 7, sorteie novamente. 

3. Faça um programa que sorteie as 
cartas de um baralho completo, per¬ 
guntando antes ao jogador qual nai¬ 
pe ele acha que sairá sorteado. 

4. Explique por que o seguinte pro¬ 
grama pode ser usado para substituir 
o comando RAND, em computadores 
que não o possuem: 


- nas linhas 285 e 305 são incrementa¬ 
das as contadoras NCOMP e NJOG, 
conforme o ganhador tenha sido o 
computador ou o jogador, respecti¬ 
vamente; 

- as linhas 320 a 400 servem para 
anunciar ò resultado final. 

Com alguma imaginação você 
conseguirá aperfeiçoar este jogo até 
que ele se torne realmente emocio¬ 
nante. 


10 PRINT "QUE HORAS SAO 
(HH.MM)" 

20 INPUT H 

30 FOR 1= 1 TO INT (H*10 ) 

40 LET R = RND 
50 NEXT I 


5. Faça um programa para simular o 
seguinte jogo ("Porquinho"): o com¬ 
putador sorteia um dado várias ve¬ 
zes. O número de pontos de cada 
lançamento é acumulado com os dos 
lançamentos anteriores. Depois de 
cada lançamento, o programa per¬ 
gunta ao jogador se quer continuar 
ou desistir. Se o jogador desistir, fica 
com o número acumulado de pontos 
até aquele momento. Se continuar, 
entretanto, caso o computador sor¬ 
teie o número 1, perde tudo o que já 
acumulou antes. Ganha quem acu¬ 
mular mais pontos. 

Dica: Use um acumulador chamado 
SOMA. No final de cada sorteio, per¬ 
gunte: 


QUER CONTINUAR 
(SIM OU NAO)? 

e verifique se a resposta foi "SIM" ou 
"NAO". 
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Nesta seção, vamos aprender uma 
nova maneira de planejar progra¬ 
mas. Você já deve ter notado ,que, 
quando o programa tem uma lógica 
muito complexa, ou seja, tem muitos 
desvios condicionais e incondicionais 
(IF, GOTO etc.) fica muito difícil vi¬ 
sualizar quais os caminhos que o pro¬ 
grama deve seguir. 

O planejamento prévio do progra- 
ma, nestes casos, é uma atividade 
muito importante, porque auxilia o 
programador a desenvolver progra¬ 
mas: 

- mais facilmente escritos na lingua- 
qem BASIC; 

-mais livres de erros, ou seja, com 
pouco ou nenhum erro, quando 
testados pela primeira vez; 

- cujos erros são facilmente encon¬ 
trados, corrigidos etc.; 

- mais simples e compactos, ou seja, 
facilmente compreensíveis, efi¬ 
cientes e que ocupam um espaço 
menor de memória. 

Se digitamos um programai no 
computador, à medida que as idéias 
vêm à nossa cabeça, há uma grande 
probabilidade de que este programa 
fique confuso, com erros e de difícil 
compreensão. Embora muitas vezes 
ele faça corretamente o trabalho para 
o qual foi destinado, nem sempre o 
faz da forma mais eficiente. 

Tudo isto é especialmente mais evi¬ 
dente em relação aos programas com 
lógica mais complexa. 

Um modo eficaz de planejar pro¬ 
gramas deste tipo é o denominado 
• FLUXOGRAMA, também chamdo 
de DIAGRAMA DE BLOCO. 

O fluxograma é uma forma de re¬ 
presentar graficamente (por símbolos 
ou figuras) a estrutura e o fluxo de 
um programa. 

Cada parte do programa (geral¬ 
mente cada linha) é representada por 
um símbolo especial, que correspon¬ 
de estreitamente ao tipo de comando 
ou instrução a ser usado. Estes símbo 
los são denominados blocos. 

Por exemplo, o comando LET é re¬ 
presentado por uma caixinha , ou 
retângulo, gue contém a expressão 
ou atribuição a ser realizada: 



O comando IF é representado por 
um lozango que contém a condição: 



O comando STOP é representado 
por esta figura: 



O comando INPUT é representado 
pelo perfil de um teclado que traz o 
nome da variável: 



E o comando PRINT é representa¬ 
do por uma tela de vídeo: 


"JOGUE DE NOVO" 


Existem muitos outros símbolos que 
posteriormente conheceremos. 

Estes símbolos são dispostos no pa¬ 
pel em seqüência, de cima para bai¬ 
xo, representando os sucessivos co¬ 
mandos que comporão o programa. 
Para indicar o fluxo ou direção de um 
comando para outros, usam-se sinais 
em forma de seta. 

Muitos programas têm uma lógica 
linear. (Isto quer dizer que eles não 
têm bifurcações ç>u desvios através de 
IFs ou GOTOs. É o caso do programa 
abaixo, que serve para converter 
graus Fahrenheit em Celsius (escalas 
de medida de temperatura): 



Observe que todo fluxçgrama tem 
obrigatoriamente um INÍCIO e um 
FIM, marcados pelos símbolos cor¬ 
respondentes. Eles não precisam ser 
necessariamente representados na 
listagem, como abaixo: 


10 PRINT "GRAUS FAHRENHEIT?" 
20 INPUT F 


30 LET C = 5/9*(F-32) 

40 PRINT F; "GRAUS F = 
GRAUS C" 



Vamos ver agora um exemplo com¬ 
pleto de programação bem simples, 
para entender como é feito o fluxo¬ 
grama para programas com desvios. 


Vamos fazer um programa para 
testar se um determinado número di¬ 
gitado pelo usuário é negativo, posi¬ 
tivo ou zero (já estudamos este exem¬ 
plo no capítulo anterior, às páginas 
37 e 38). 

O fluxograma ficaria assim (veja os 
comentários à direita): 
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^ INICIO 


t 



início do programa 


mensagem para o usuário 


entra um número 


testa se é negativo 


mensagem 


testa se é positivo 


mensagem 


mensagem se é zero 


fim do programa 


Como vemos, é bastante fácil vi¬ 
sualizar todas as alternativas a cada 
teste. Cada teste tem apenas duas saí¬ 
das: verdadeira (SIM), que geral¬ 
mente é colocada à direita do símbo¬ 
lo do IF, ou falsa (NÃO), que é colo¬ 
cada logo abaixo. 

Para iniciar a codificação em BA¬ 
SIC, basta numerar os símbolos se- 
qüencialmente, prestando atenção 
aos desvios. A numeração é colocada 
ao lado de cada símbolo: 
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Agora fica muito mais fácil escre¬ 
ver o programa: 

10PRINT "ENTRE UM NUMERO 
QUALQUER" 

20 INPUT N 

30 IF N < 0 THEN GOTO 70 
40 IF N>0 THEN GOTO 90 
50 PRINT "NUMERO ZERO" 

60 GOTO 100 

70 PRINT "NUMERO NEGATIVO" 
80 GOTO 100 

90 PRINT "NUMERO POSITIVO" 
100 STOP 


Observe gue foi necessário usar 
apenas dois comandos IF para testar 
três condições. Os comandos GOTO 
das linhas 60 e 80 têm sua necessida¬ 
de deduzida a partir do exame do flu- 
xograma, e nào precisam ser especi¬ 
ficados nele (embora não seja proibi¬ 
do). 

O símbolo do comando GOTO é 
um círculo pegueno: 



Outros símbolos bastante usados 
para fluxogramas de programação: 

Impressão em impressora (parece 
uma folha de papel rasgada): 


"RESULTADOS = MEDIA 
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0 comando FOR é representado 
por esta figura: 


1=1 TO 10 


O comando NEXT correspondente 
tem o mesmo símbolo do GOTO: 





Eles são ligados por uma linha in¬ 
terrompida: 



De agora em diante, procure sem¬ 
pre desenhar um fluxograma para 
cada programa, antes de tentar 
escrevê-lo em BASIC. 

Isto vai aumentar muito a qualida- 
de e correção de seus programas. 



m jogo de 
adivinhação 


Você agora tem a possibilidade de 
programar uma variedade enorme de 
jogos de sorte ou azar. Alguns deles 
são bastante simples, mas muito di¬ 
vertidos, e chegam mesmo a ser edu¬ 
cativos. 

É o caso do jogo de adivinhação 
chamado Maior ou Menor?, que va¬ 
mos mostrar agora como programar, 
e que serve para ensinar estes con¬ 
ceitos às crianças. 

O funcionamento do jogo é o se¬ 
guinte: 


Se o desenho não cabe em uma 
única folha de papel, podemos usar o 
seguinte símbolo para indicar uma 
continuação ou mudança de página : 


24 

\y 


O computador informa à criança 
que está pensando em um número si¬ 
tuado entre 1 e 10. Em que número 
ela acha que ele está "pensando"? 

Se a resposta que a criança der 
não for correta, o programa informa 
se o número é muito baixo ou muito 
alto, e pergunta novamente. 

Quando a criança acertar, o pro¬ 
grama informa quantas tentativas fo¬ 
ram necessárias. 


Depois veremos qual é esta estraté¬ 
gia! 


Planejando o jogo 

O programa terá as seguintes fa¬ 
ses: 

1. mostra na tela o título do jogo e as 
instruções iniciais; 

2. sorteia um número aleatório entre 
1 e 10; 

3. pergunta um número para o joga¬ 
dor; 

4. testa se este número é igual, me¬ 
nor ou maior do que o sorteado; 

5. se for igual, o jogador acertou. In¬ 
forma quantas tentativas precisou 
para acertar; 

6. se for maior ou menor, informa 
através de uma mensagem, e volta 
para o passo 3. Incrementa o nú¬ 
mero de tentativas. 

As variáveis do programa poderão 
ser as seguintes: 

NS - número sorteado 

A - adivinhação do jogador 

NT - número de tentativas 


Com o tempo, você terá oportuni¬ 
dade de usar todos estes símbolos. 

Uma boa idéia é adquirir uma ré¬ 
gua ou gabarito de fluxogramas, em 
papelarias ou casas especializadas 
em materiais para desenho. Ela já 
tem os elementos vazados para os 
símbolos de programação 


Este jogo é educativo também em 
outro sentido. Existe uma estratégia 
para acertar em menor número de 
vezes possível. Podemos deixar a 
criança jogar e descobrir sozinha 
qual é esta estratégia; ou então 
ensiná-la depois de certo tempo e ver 
se ela a aplica corretamente. 


Gabarito para desenho 
de fluxogramas 
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Fluxograma 
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Codificação em BASIC 


10 PRINT "JOGO DE ADIVINHA- 
CAO" 

15 PRINT "= = = = = = = = 


20 PRINT 

25 PRINT "EU VOU PENSAR EM 
UM NUMERO DE 1 A" 

30 PRINT "10 . GANHA QUEM 
ADIVINHAR EM MENOS" 

35 PRINT "TENTATIVAS." 

38 PRINT 
40 LET NT = 0 

45 LET NS = 1 + INT (RND*10 ) 

50 PRINT ”EM QUE NUMÈRO ES¬ 
TOU PENSANDO?" 

60 INPUTA 
65 PRINT A 

70 IF NS< A THEN GOTO 110 
80 IF NS >A THEN GOTO 120 
90 PRINT "ACERTOU EM ";NT;" 

TENTATIVAS" 

100 STOP 

110 PRINT "ERROU. TENTE UM 
NUMERO MENOR" 

115 GOTO 130 

120 PRINT "ERROU. TENTE UM 
NUMERO MAIOR" 

130 LET NT = NT + 1 
140 GOTO 50 


Exemplo de um jogo 


JOGO DE ADIVINHACAO 


EU VOU PENSAR EM UM NUMERO DE 1 A 10. 
GANHA QUEM ADIVINHAR EM MENOS TENTA¬ 
TIVAS. 

EM QUE NUMERO ESTOU PENSANDO? 6. ER¬ 
ROU. TENTE UM NUMERO MENOR. EM QUE NU¬ 
MERO ESTOU PENSANDO? 3. ERROU. TENTE 
UM NUMERO MAIOR. EM QUE NUMERO ESTOU 
PENSANDO? 



EU VOU PENSAR EM UM NUMERO DE 1 A 10. 
GANHA QUEM ADIVINHAR EM MENOS TENTA¬ 
TIVAS. 

EM QUE NUMERO ESTOU PENSANDO? 6. ER¬ 
ROU. TENTE UM NUMERO MENOR. EM QUE NU¬ 
MERO ESTOU PENSANDO? 3. ERROU. TENTE 
UM NUMERO MAIOR. EM QUE NUMERO ESTOU 
PENSANDO? 4. ACERTOU EM 3 TENTATIVAS 

9/100 




1 


JOGO DE ADIVINHACAO 


EU VOU PENSAR EM UM NUMERO DE 1 A 10. 
GANHA QUEM ADIVINHAR EM MENOS TENTA 
TIVAS. 


EM QUE NUMERO ESTOU PENSANDO? 



Coloque o programa no computa¬ 
dor e experimente várias vezes. 

Sugestões para modificar 
o programa 

1. Coloque os números mínimos e 
máximos (no exemplo, 1 e 10) como 
variáveis dentro do programa, po¬ 
dendo ser especificadas pelos co¬ 
mandos INPUT, logo no início do 
programa. 

2. Faça o jogador colocar o seu nome 
no início do programa e depois po¬ 
nha este nome nas mensagens de er¬ 
ro e acerto. 





JOGO DE ADIVINHACAO 


EU VOU PENSAR EM UM NUMERO DE 1 A 1 0 . 
GANHA QUEM ADIVINHAR EM MENOS TENTA 
TIVAS. 

EM QUE NUMERO ESTOU PENSANDO? 6. ER 
ROU. TENTE UM NUMERO MENOR. EM QUE NU 
MERO ESTOU PENSANDO? 



3. Coloque no lugar do comando 
STOP uma pergunta: 

QUER JOGAR MAIS UMA VEZ 
(SIM OU NAO)? 

4. Estenda o programa de modo a 
permitir a participação de dois joga¬ 
dores, um competindo contra o outro 
(ganha quem adivinhar em menor 
número de tentativas). 

5. Estenda o programa para adivi¬ 
nhação de letras do alfabeto (A, B, 
C, D etc.), ao invés de números. 























nsinando tabuada 
pelo computador 


Uma boa aplicação para a função 
RND é a criação de um grande núme¬ 
ro de problemas de matemática, com 
dados diferentes de cada vez. Esta é 
uma aplicação educativa do compu¬ 
tador, pois permite ao aluno fazer 
muitos exercícios. Além disso, cada 
aluno recebe um conjunto de exercí¬ 
cios totalmente diferente dos demais. 
Podemos também fazer o computador 
dar notas aos alunos, dependendo do 
número de problemas que ele acerta. 

Vamos agora desenvolver juntos 
um programa para apresentar dez 
problemas de tabuada de multiplica¬ 
ção, sendo um dos fatores de multi¬ 
plicação gerado ao acaso, entre 1 e 
10. Após a apresentação de cada 
problema, a resposta é colhida e 
comparada com a resposta certa. No 
final é atribuída uma nota ao aluno. 


Planejamento do programa 

As fases do programa serão: 

1. mostrar o título do programa e seu 
objetivo; 

2. perguntar ao aluno que tabuada 
ele quer estudar; 

3. sortear um número de 1 a 10; 

4. mostrar na tela o problema: ta¬ 
buada x número sorteado; 

5. entrar a resposta do aluno; 

6. testar se a resposta do aluno está 
correta; 

7. se estiver correta, dar os para¬ 
béns e incrementar o contador de 
número de respostas corretas; 

8. se estiver errada, mostrar o resul¬ 
tado correto; 

9. voltar para o passo 3, até que se 
esgotem os dez problemas; 

10. apresenta a nota final. 

As variáveis poderão ser: 

T - tabuada que quer estudar 
NA - número de acertos 
F - fator de multiplicação sorteado 
R - resposta do aluno 


Fluxograma 
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Codificação em BASIC 


10 PRINT "TABUADA" 

15 PRINT "= = = = = = =" 

20 PRINT 

25 PRINT "VAMOS ESTUDAR TA¬ 
BUADA DE VEZES" 

30 PRINT ”EU APRESENTO UMA 
CONTA PARA VOCE" 

35 PRINT "FAZER, E VOCE RES¬ 
PONDE, TA?" 

37 PRINT 

40 PRINT "QUE TABUADA QUER 
ESTUDAR?" 

50 INPUTT 
60 LET T = INT(T) 

70 IF T<2 THEN GOTO 40 

80 FOR 1=1 TO 10 

85 LET F = 1 + INT (RND*10 ) 

90 CLS 

95 PRINT F;“X";T;"?"; 

100 INPUT R 
105 PRINT R 

110 IF R = F*T THEN GOTO 140 
120 PRINT "ERROU. O RESULTA¬ 
DO E ";F*T 
130 GOTO 160 
140 PRINT "ACERTOU" 

150 LET NA = NA + 1 
160 PAUSE 200 
170 NEXT I 

180 PRINT "SUA NOTA FOI ";NA 
190 STOP 


Coloque o programa no computa¬ 
dor e exercite com ele. 

Sugestões para modificar 
o programa 

1. Coloque o número de problemas 
(no exemplo, 10) como variável den¬ 
tro do programa, podendo ser espe¬ 
cificado pelo comando INPUT, logo 
no início do programa. 

2. Faça o aluno colocar o seu nome 
no inicio do programa, e depois po¬ 
nha este nome nas mensagens de er¬ 
ro e acerto. 

3. Coloque no lugar do comando 
STOP uma pergunta: 


RESPOSTAS AOS 
EXERCÍCIOS 
ANTERIORES 


Páginas 51/52 

1. Faça um programa para calcular a 
soma dos números inteiros de 1 a 100. 


50 LET PROD = PROD*N 
60 NEXT I 

50 PRINT "FATORIAL DE N 
";PROD 


Resposta: 

Versão 1 (usando IF): 

10 LET SOMA = 1 

20 LET N= 1 

30 LET N = N+1 

40 IF N> 100 THEN GOTO 70 

50 LET SOMA = SOMA + N 

60 GOTO 30 

70 PRINT SOMA 


Versão 2 (usando FOR): 

10 LET SOMA = 0 
20 FOR N = 1 TO 100 
30 LET SOMA = SOMA + N 
40 NEXT N 
50 PRINT SOMA 


2. Modifique o programa acima, de 
modo a poder calcular a soma dos 
números inteiros de 1 a um número 
qualquer. 


8. Faça um programa para aceitar 
um nome qualquer pelo teclado, e 
em seguida fazê-lo piscar dez vezes 
seguidas, no meio da primeira linha 
da tela. 


Resposta: 

10 PRINT "ENTRE UM NOME 
QUALQUER:" 

20 INPUT N$ 

30 LET N = 0 
40 CLS 

50 PRINT TAB (12);N$ 

60 PAUSE 30 
70 LET N = N +1 
80 IF N < 10 THEN GOTO 40 
90 STOP 


9. Faça um programa para calcular a 
soma de dez números quaisquer, di¬ 
gitados pelo teclado. 


Resposta: 


Resposta: 

5 PRINT "ENTRE O NUMERO MÁ¬ 
XIMO PARA A SERIE:" 

8 INPUT MX 
10 LET SOMA = 0 
20 FOR N = 1 TO MX 
30 LET SOMA = SOMA + N 
40 NEXT N 
50 PRINT SOMA 


10 LET SOMA = 0 

20 FOR 1 = 1 TO 10 

30 PRINT "ENTRE A PARCELA 


40 INPUT P 
45 PRINT P 

50 LET SOMA = SOMA + P 
60 NEXT I 
70 PRINT SOMA 
80 STOP 


OU ER TENTAR MAIS UMA VEZ 
(SIM OU NAO)? 

4. Estenda o programa de modo a fa¬ 
zer com que os dois fatores de multi¬ 
plicação variem aleatoriamente. 

5. No lugar de mensagem de acerto 
ou erro, coloque a figura gráfica de 
um palhacinho rindo ou chorando, 
respectivamente. 


3. Faça um programa como o acima, 
para calcular o fatorial de um núme¬ 
ro inteiro qualquer (N!). 

Resposta: 

10 PRINT "QUE NUMERO QUER O 
FATORIAL?" 

20 INPUT N 
30 LET PROD = 1 
40 FOR 1 = 2 TO N 


10. Faça um programa para imprimir 
uma tabela das raízes quadradas dos 
números de 10 a 1000, de 10 em 10. 

Resposta: 

10 PRINT "N", "RAIZ QUADRADA" 
20 FOR N = 10 TO 1000 STEP 10 
30 PRINT N,SQR(N) 

40 NEXT N 
50 STOP 
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Página 69 

9.17. Faça um programa para ge¬ 
rar na tela todas as combinações pos¬ 
síveis de preenchimento do cartão da 
Loteria Esportiva. 

Solução: 

10 LET N = 0 

20 FOR 1=1 TO 3 

30 FOR J = I TO 3 

40 LET N = N +1 

50 PRINT N;" - COLUNA ";I 

60 IF 1 = J THEN GOTO 80 

70 PRINT * COLUNA ";J 

80 NEXT J 

90NEXTI 

Nota: Este programa gerará todas 
as combinações 1, 1-2, 1-3, 2, 2-3 e 3, 
mas não gerará a marcação tripla, 1- 
2-3. 

9.20. Faça um programa para apre¬ 
sentar na tela três exercícios de ta¬ 
buada de multiplicar e para testar se 
o resultado apresentado pelo aluno 
foi correto. O programa deve dizer, 
no fim, quantos exercícios foram re¬ 
solvidos corretamente pelo aluno. 


Páginas 62/63 


1. Faça um programa para simular 
várias vezes o sorteio de uma moeda. 


Resposta: 

10 PRINT "SORTEIO DE UMA 
MOEDA" 

15 RAND 
20 PRINT 

30 PRINT "QUANTAS VEZES?" 

40 INPUTN 
50 FOR 1=1 TO N 
60 IF RND>0.5 THEN 90 
70 PRINT "CARA" 

80 GOTO 100 
90 PRINT "COROA" 

100 NEXT I 


RESPOSTAS AO 
TESTE 
ANTERIOR 


Solução: 

10 PRINT "3 EXERCÍCIOS DE TA¬ 
BUADA" 

20 PRINT 
25 LET N = 0 
30 PRINT "3x4?" 

40 INPUTR 

50 IFR012 THEN GOTO 90 
60 LET N = N + 1 
70 PRINT "ACERTOU" 

80 GOTO 100 
90 PRINT "ERROU" 

100 PRINT "8 x 6?" 

120 INPUT R 

130 IF RO48 THEN GOTO 170 

140 LET N = N + 1 

150 PRINT "ACERTOU" 

160 GOTO 180 
170 PRINT "ERROU" 

180 PRINT "7 x 4?" 

190 INPUT R 

200 IF RO 28 THEN GOTO 240 

210 LET N = N + 1 

220 PRINT "ACERTOU" 

230 GOTO 250 
240 PRINT "ERROU" 

250 PRINT 

260 PRINT "VOCE ACERTOU 
";N;" PROBLEMAS" 

270 STOP 


RESPOSTAS AOS 
EXERCÍCIOS 
ANTERIORES 


2- Modifique o programa acima para 
contar quantas vezes saiu cara e 
quantas vezes saiu coroa, informando 
o resultado no fim. 


Resposta: 

10 PRINT "SORTEIO DE UMA 
MOEDA" 

15 RAND 
20 PRINT 

30 PRINT "QUANTAS VEZES?" 

40 INPUTN 
42 LET CA = 0 
44 LET CO = 0 
50 FOR 1 = 1 TO N 
60 IF RND>0.5 THEN 90 
70 PRINT "CARA" 

75 LET CA = CA +1 
80 GOTO 100 
90 PRINT "COROA" 


Observação: Note como esta é uma 
maneira pouco eficiente de fazer um 
programa que apresenta programas 
repetitivamente. Um programa muito 
mais curto seria: 

10 PRINT "PROBLEMAS DE TA¬ 
BUADA" 

20 PRINT 

50 PRINT "QUE TABUADA?" 

60 INPUT T 
65 LET N = 0 
70 FOR 1 = 1 TO 10 
80 CLS 

90 PRINT T;"X ";I;" ? " 

100 INPUT R 

110 IF ROTT THEN GOTO 130 

120 LET N = N +1 

125 GOTO 140 

130 PRINT "ERRADO" 

140 NEXT I 
150 PRINT 

160 PRINT VOCE ACERTOU ";N," 
PROBLEMAS 
170 STOP 


95 LET CO = CO + 1 
100 NEXT I 
110 CLS 

120 PRINT "SORTEIO DE UMA 
MOEDA ";N;" VEZES" 

130 PRINT 

140 PRINT "SAÍRAM ";CA;" CA¬ 
RAS (";CA/N*100 %)" 

150 PRINT "SAIRAM";CO;" CO¬ 
ROAS (";CO/N*100 %)" 

160 STOP 

5. Faça um programa para sortear as 
cartas de um baralho, mostrando o 
seu valor ou figura na tela. 

Resposta: 

10 REM — SORTEIO DE UM BA¬ 
RALHO 

20 REM — PARA MICROS TIPO 
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SINCLAIR ZX81 

30 REM — JANEIRO 85 - (C) R. 
SABBATINI 

40 REM. 

50 REM 
54 RAND 
56 REM 

60 REM — TITULO E DADOS 
70 REM 

80 PRINT "JOGO DE SORTEIO 
DE CARTAS" 

90 PRINT ”= = = = = = = = = = = = 


100 PRINT 

110 PRINT "QUANTAS CARTAS 
QUER SORTEAR?" 

120 INPUT NC 

130 LET NC = INT (NC) 

140 IF NC <1 THEN GOTO 110 
150 REM 

160 REM — ALCA DE SORTEIO 
DAS CARTAS 
170 REM 

180 FOR I = 1 TO NC 

190 LET C = 2 + INT (RND * 11) 

200 LET N = 1 + INT (RND * 4) 

210 REM' 

220 REM — MOSTRA O RESULTA¬ 
DO 
230 REM 

240 PRINT "A CARTA SORTEADA 
FOI"; 

250 IF C <11 THEN GOTO 310 
252 REM 

254 REM — MOSTRA VALOR DA 
CARTA 
256 REM 

260 IF C = 11 THEN PRINT "VALE¬ 
TE"; 

270 IF C = 12 THEN PRINT 
"DAMA" 

280 IF C = 13 THEN PRINT "REI"; 
290 IF C = 14 THEN PRINT "AS"; 

300 GOTO 330 
310 PRINT C; 

330 PRINT ” DE "; 

340 REM 

350 REM — IMPRIME NAIPE 
360 REM 

370 IF N = 1 THEN PRINT "ESPA¬ 
DAS" 

380 IF N = 2 THEN PRINT "COPAS" 
390 IF N = 3 THEN PRINT "PAUS" 
400 IF N = 4 THEN PRINT 
"OUROS" 

410 NEXT I 
420 STOP 

6. Faça um programa para imprimir 
20 sorteios de um número aleatório R, 
calculando e imprimindo em cada 
sorteio as seguintes transformações 
do programa: R * 10, 1 +INT(R*10 ), 
10 + INT(R*10) 

Resposta: 

10 RAND 


20 FOR 1=1 TO 20 
30 LET R = RND 

40 PRINT R*10 ;1 + INT(R*10 ); 

10 +INT(R*10 ) 

50 NEXT I 
60 STOP 

Página 64 

2. Faça um programa que sorteie 
dois dados, e mostre a soma dos nú¬ 
meros sorteados. Se a soma for igual 
a 7, pare de sortear. Se for diferente 
de 7, sorteie novamente. 

Resposta: 

10 PRINT "O JOGO DOS 2 DA¬ 
DOS" 

20 PRINT 
30 RAND 

40 LET Dl = 1 + INT(RND*6) 

50 LET D2 = 1 + INT(RND*6) 

60 LET SOMA = Dl + D2 
70 IF SOMA = 7 THEN STOP 
80 GOTO 40 

3. Faça um programa que sorteie as 
cartas de um baralho completo, per¬ 
guntando antes ao jogador qual nai¬ 
pe ele acha que sairá sorteado. 

Resposta: 

Vamos aproveitar o programa do 
exercício 5, mostrado anteriormente. 

As linhas novas são: 182, 183, 184, 
402 e 404 

10 REM — SORTEIO DE UM BA¬ 
RALHO 

20 REM — PARA MICROS TIPO 
SINCLAIR ZX81 

30 REM — JANEIRO 85 - (C) R. 
SABBATINI 

40 REM. 

50 REM 
54 RAND 
56 REM 

60 REM ~. TITULO E DADOS 
70 REM 

80 PRINT "JOGO DE SORTEIO 
DE CARTAS" 

90 PRINT “============ 


100 PRINT 

110 PRINT "QUANTAS CARTAS 
QUER SORTEAR?" 

120 INPUT NC 

130 LET NC = INT (NC) 

140 IF NC < 1 THEN GOTO 110 
150 REM 

160 REM — ALCA DE SORTEIO 
DAS CARTAS 
170 REM 

180 FOR I = 1 TO NC 

182 PRINT "QUE NAIPE VAI DAR? 

183 PRINT "1 = ESPADAS, 2 = CO¬ 


PAS, 3 = PAUS, 4 = OUROS" 
184 INPUT A 

190 LET C = 2 + INT (RND * 11) 
200 LET N = 1 + INT (RND * 4) 

210 REM 

220 REM — MOSTRA O RESULTA¬ 
DO 
230 REM 

240 PRINT "A CARTA SORTEADA 
FOI"; 

250 IF C < 11 THEN GOTO 310 
252 REM 

254 REM — MOSTRA VALOR DA 
CARTA 
266 REM 

260 IF C = 11 THEN PRINT "VALE¬ 
TE"- 

270 IF C = 12 THEN PRINT 
"DAMA"- 

280 IF C = 13’THEN PRINT "REI"; 
290 IF C = 14 THEN PRINT "AS"; 
300 GOTO 330 
310 PRINT C; 

330 PRINT " DE "; 

340 REM 

350 REM — IMPRIME NAIPE 
360 REM 

370 IF N = 1 THEN PRINT "ESPA¬ 
DAS" 

380 IF N = 2 THEN PRINT "COPAS" 
390 IF N = 3 THEN PRINT "PAUS" 
400 IF N = 4 THEN PRINT 
"OUROS" 

402 IF N = A THEN PRINT "ACER¬ 
TOU" 

404 IF NOA THEN PRINT "ER¬ 
ROU" 

410 NEXT I 


5. Faça um programa para simular o 
seguinte jogo ("Porquinho"). Veja o 
enunciado completo. 


10 

REM — JOGO DO PORQUI- 


NHO 


20 

REM. 


30 

REM 


35 

PRINT "VAI ROLAR 
DADO..." 

O 

37 

PRINT 


40 

RAND 


50 

LET SOMA = 0 


60 

LET D = 1 + INT(RND*6) 


65 

PRINT "SAIU O NUMERO 

";D 

70 

IF D = 1 THEN GOTO 160 

80 

LET SOMA = SOMA + D 


90 

PRINT "VOCE AGORA TEM 


";SOMA;" PONTOS." 


100 

PRINT 


110 PRINT "QUER CONTINUAR 


(SIM OU NAO)?" 

120 INPUT R$ 

130 IF R$ = "SIM" THEN GOTO 60 
140 PRINT "COVARDE..." 

150 STOP 

160 PRINT "PERDEU TUDO..." 

170 STOP 
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C A P I T U L O 
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S TABELAS DO 
COMPUTADOR 


Até agora, você já viu como podemos 
armazenar valores na memória do com¬ 
putador, pelo uso das variáveis. 

Rememorando, uma variável é um no¬ 
me simbólico, dado pelo programador 
a uma ou mais memórias do computa¬ 
dor, de modo a indicar onde será arma¬ 
zenado um determinado valor. Até ago¬ 
ra, aprendemos gue existem em BASIC 
dois tipos fundamentais de variáveis: 

- as variáveis numéricas > 

- as variáveis literais (ou alfanumé¬ 
ricas) 

As variáveis numéricas servem apenas 
para armazenar números. Por exemplo: 

5 LET NUM = 12.6 
15 LET MEDIA = (NI + N2)/2 

No primeiro exemplo, estamos dando 
ao computador uma instrução para ar¬ 
mazenar o valor numérico 12.6 na variá¬ 
vel gue chamamos de NUM. 

No segundo exemplo, estamos dando 
uma instrução para armazenar na variá¬ 
vel chamada MEDIA, o resultado da ex¬ 
pressão aritmética à direita do sinal de 
igualdade (gue por sua vez está usando 
o conteúdo de duas outras memórias, ou 
seja, NI e N2). 

As variáveis literais, por sua vez, ser¬ 
vem para armazenar palavras frases, 
etc., ou gualguer outra següência de 
símbolos gue o computador consiga ge¬ 
rar. Por exemplo: 

12 LET NOME$ = "TANCREDO 
NEVES" 

15 LET ESPAÇOS = " 

20 LET XINGAS = ??" 

30 LET AVI AOS = 


verá ser usada para armazenar caracte¬ 
res e não valores numéricos. (Por exten¬ 
são, dizemos gue esse tipo de variável 
serve para armazenar valores literais, 
embora eles não sejam exatamente 
valores.) 

Além disso, podemos ver, pelo tercei¬ 
ro exemplo, gue é possível armazenar 
caracteres gráficos dentro de uma variá¬ 
vel literal. Para conseguir isto no TK 85, 
basta pressionar as teclas SHIFT e 9, lo¬ 
go depois de termos digitado o primei¬ 
ro sinal de aspas: 



Esta combinação de teclas causa o 
aparecimento do cursor G na linha de 
entrada, o que possibilita a digitação de 
caracteres gráficos, a partir daí: 



Como mostramos a seguir: 



Observe que é necessário colocar o si¬ 
nal de cifrão ($) no final do nome de uma 
variável literal, o que serve para "avisar" 
ao computador que aquela variável de¬ 


Depois de digitar os gráficos, devemos 
pressionar de novo as teclas SHIFT e 9, 
para podermos teclar o sinal de "fecha 
aspas". 



Você deve se lembrar também de que 
o nome de uma variável literal pode re¬ 
presentar mais do que uma "caixinha" 
na memória do computador (reveja o es¬ 
quema da página 27). Na realidade, ca¬ 
da letra ou caractere entre as aspas irá 
ocupar uma memória após a outra. O 
conjunto de memórias usado para ar¬ 
mazenar todos os caracteres de um va¬ 
lor literal recebe o nome técnico de cor¬ 
dão, neste caso (o nome correspondente 
em inglês, string, também é muito 
usado). 



m novo tipo 
de conjunto 


Neste capítulo, vamos conhecer um 
novo tipo de conjunto. Com ele, pode¬ 
mos utilizar um nome único de variável, 
para armazenar vários valores separa¬ 
dos. Eles são chamados de conjuntos in¬ 
dexados e são muito úteis para se colo¬ 
car na memória do computador coisas 
organizadas na forma de tabelas. 

Para entender melhor como funciona 
um conjunto desse tipo, vamos "bolar" 
um programa para construir uma tabe¬ 
la dos pontos ganhos pelos vários times 
de futebol em um campeonato. 

Uma maneira de realizar isto com as 
variáveis "normais" que você aprendeu 
até agora seria: 

10 PRINT "CAMPEONATO BRASI¬ 
LEIRO DE FUTEBOL" 

20 PRINT" TABELA DE PONTOS 
GANHOS" 

30 PRINT 

40 REM 

50 REM = = = ENTRADA DE 
DADOS 

60 REM 

70 PRINT "ENTRE O NUMERO DE 
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PONTOS GANHOS" 

75 PRINT TARA CADA TIME DA 
TABELA:" 

80 PRINT 

90 PRINT 'TIME NUMERO 1 ? 

100INPUTT1 
110 PRINT TI 

120 PRINT "TIME NUMERO 2 ? 

130INPUTT2 

140 PRINT T2 

e assim por diante. Teríamos que colo¬ 
car, em seguida, várias linhas seme¬ 
lhantes, para entrar os valores dos times 
T3, T4, T5 etc., até incluir todos os times 
(quantos existissem!). 

Em seguida, poderíamos escrever um 
outro pedaço do programa, para mos¬ 
trar o número médio de pontos do cam¬ 
peonato, por exemplo: 

400 LET MEDIA = (TI + T2 + T3 
+ T4 + T5)/5 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 

Você já percebeu que esse método de 
programação é muito trabalhoso, e mui¬ 
to limitado: 

— tenho que definir de antemão o nú¬ 
mero de times que vão figurar na tabe¬ 
la. Se este número mudar depois, terei 
que modificar o programa em vários lu¬ 
gares (inclusive na fórmula da linha 
400); 

— quanto maior for o número de times, 
mais comprido será o programa, e mais 
trabalhoso será escrevê-lo. 

Por isso, seria ideal se pudéssemos usar 
um único nome para as variáveis T1, T2, 
T3 etc Assim, poderíamos guardar os 
diversos valores numéricos em "caixi¬ 
nhas" ligadas umas nas outras, mais ou 
menos como no caso das variáveis li¬ 
terais. 

Felizmente, existe esse tipo de variável 
conjunta na linguagem BASIC. Com 
ela, podemos utilizar um único nome 
(por exemplo, T) para a área de memó¬ 
ria que armazenará os pontos ganhos de 
cada equipe: 


área de memória 


variável T 

12 

10 

9 

5 

3 

número da 

1 

2 

3 

4 

5 


memória 

Para colocar um valor nesse tipo de va¬ 
riável, podemos usar um comando LET 


ou comando INPUT: 

100 INPUT T(l) 

O valor entre parênteses, que vem de¬ 
pois do nome do conjunto, é chamado 
de índice ou subscrito. Ele indica qual 
é a "caixinha" onde será colocado o va¬ 
lor digitado pelo teclado. Neste exem¬ 
plo, a memória indicada é a 1, ou seja, 
o número de pontos ganhos será arma¬ 
zenado para o primeiro time. Outro 
exemplo: 

55 LET T(5) = 3 

Aqui, estamos dando a seguinte ins¬ 
trução ao computador: 

PEGUE o número 3 e ARMAZENE na 
memória número 5 da variável chama¬ 
da T. 

Da mesma forma que os comandos 
LET e INPUT, podemos usar uma variá¬ 
vel indexada dentro de outras instru¬ 
ções, como o PRINT. Por exemplo, se 
dermos a instrução: 

56 PRINT T (5) 

estamos querendo dizer: 

PEGUE o valor contido na "caixinha" 
número 5 da variável T e mostre na tela. 

Ou ainda: 

57 LET SOMA = T(l) + T(2) 
o que quer dizer: 

SOME os valores contidos nas memó¬ 
rias 1 e 2 da variável T, e armazene o re¬ 
sultado na variável chamada SOMA. 

As memórias chamadas T(l), T(2), T(5) 
etc, neste exemplo, recebem o nome de 
variáveis indexadas, porque são assina¬ 
ladas por um índice, ou seja, o número 
de ordem delas, no conjunto. 

As memórias T( 1), T(2) etc. são chama¬ 
das também de elementos de T. 

Também são muito usados estes no¬ 
mes: varíaveis subscritas (indexadas) e 
subscritos (índices). 

Quando queremos ler em voz alta (pro¬ 
nunciar) o nome de um elemento subs- 
critado, falamos assim: 

B(5) bê índice 5 ou bê sub 5 

G(N) gê índice ene ou gê sub ene 

Portanto, um conjunto ocupa na me¬ 


mória uma série de "caixinhas" indivi¬ 
duais, cujo "endereço" consiste num no¬ 
me comum, seguido do subscrito, entre 
parênteses: 


endereço 

conteúdo 

T(l) 

23 

T(2) 

12 

T(3) 

9 

T(4) 

7 

T(5) 

4 


A grande vantagem desse tipo de va¬ 
riável é que os índices dos elementos 
também podem ser variáveis. 

Veja este exemplo: 

1000 LETV(l) = 456 
1010 LET V(2) = 132 
1020 LET V(3) =111 
1030 PRINT 

1040 PRINT "QUE VALOR QUER 
VER (1,2 OU 3)? 

1050 INPUT N 
1060 PRINT N 

1070 PRINT "VALOR = ";V(N) 

1080 GOTO 1030 

— As linhas 1000 1010 e 1020 servem 
para colocar valores numéricos dentro 
dos elementos 1, 2 e 3 do conjunto V. 

— As linhas 1040 e 1050 servem para 
perguntar ao usuário qual é o número 
de ordem do elemento que ele quer ver 
na tela (este número é armazenado na 
variável N). 

— A linha 1060 serve para mostrar na 
tela o conteúdo do elemento N do con¬ 
junto V! 

Eis como ficaria um exemplo de utili¬ 
zação do programa: 

Primeiro vamos examinar o conteúdo 
do segundo elemento do conjunto (pa¬ 
ra isto digitamos o valor 2, quando apa¬ 
rece a pergunta na tela): 


QUE VALOR QUER VER 
(1,2 OU 3)? 



O programa mostra o valor pedido, em 
seguida repete a pergunta. Agora que¬ 
remos examinar o elemento número 1: 
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QUE VALOR QUER VER 
(1, 2 OU 3)? 2 VALOR = 132 
QUE VALOR QUER VER 
(1,2 OU 3)? 



1LL 


i c 



E assim por diante: 


QUE VALOR QUER VER 
(1, 2 OU 3)? 2 VALOR = 132 
QUE VALOR QUER VER 
(1,2 OU 3)? 1 VALOR = 456 
QUE VALOR QUER VER 
(1,2 OU 3)? 


1 C 


80 PRINT 

85 FORN = 1T05 
90 PRINT "TIME NUMERO ";N;'' ? 
100 INPUT T(N) 

110 PRINT T(N) 

120 NEXT N 
130 REM 

140 REM = = = CALCULO DA 
MEDIA 
150 REM 

160 LET SOMA = 0 

170 FORN = 1 TOS 

180 LET SOMA = SOMA + T(N) 

190 NEXT N 

200 REM 

210 REM = = = MOSTRA 
RESULTADOS 
220 REM 

400 LET MEDIA = SOMA/5 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 


Eis aqui um exemplo de utilização do 
programa: 

CAMPEONATO BRASILEIRO DE 
FUTEBOL 

TABELA DE PONTOS GANHOS 

ENTRE O NUMERO DE PONTOS 
GANHOS PARA CADA TIME DA 
TABELA: 



ornando 
o programa 
mais eficiente 


TIME NUMERO 1 ? 23 
TIME NUMERO 2 ? 12 
TIME NUMERO 3? 9 
TIME NUMERO 4 ? 7 
TIME NUMERO 5? 4 

MEDIA DOS PONTOS 
GANHOS = 11 


Vamos usar agora o nosso conheci¬ 
mento a respeito das variáveis indexa¬ 
das, para modificar o programa da tabe¬ 
la de pontos do campeonato. Inicial- 
mente, vamos fazer um programa para 
cinco times apenas: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL' 

20 PRINT " TABELA DE PONTOS 
GANHOS" 

30 PRINT 
40 REM 

50 REM = = = ENTRADA DE 
DADOS 
60 REM 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 


Vamos entender agora como funciona 
o programa. 

Para isto, vamos fazer o oposto do gue 
foi ensinado para você. Vamos fazer 
agora o fluxograma do programa (nor¬ 
malmente ele deve ser feito antes deste 
ser escrito, lembra-se?). 

Para representar uma alço do tipo FOR 
... NEXT, usamos os blocos abaixo: 



76 












Desse modo, o programa ficaria assim: 



"CAMPEONATO BRASILEIRO DE FUTEBOL" 
" TABELA DE PONTOS GANHOS" 


T 


"ENTRE O NUMERO DE PONTOS GANHOS" 
"PARA CADA TIME DA TABELA:" 


FORN = 1 TO 5 


I 




( NEXTN ) 


SOMA= 0 


4 


-►<F0RN=1T05 


c 


I 




SOMA = SOMA + T 




-(nextn) 

a ¥m 









A primeira alça, que vai da linha 85 a 
120 serve para entrarmos sucessiva¬ 
mente os times de 1 a 5. A variável N é 
usada como contadora da alça e, ao 
mesmo tempo, como índice do conjun¬ 
to T. 

Esta é uma técnica muito usada na pro¬ 
gramação de conjuntos, e se chama in - 
dexaçõo indireta. 

Você pode ver que, a cada valor de N 
incrementado pelo POR, o programa re¬ 
ferencia um novo valor de T nas linhas 
100 (INPUT) e 110 (PRINT). Ao mesmo 
tempo, serve também para indicar ao 
usuário qual o número do time para o 
qual ele deve digitar os pontos ganhos. 




Valor de N 

Elemento 

Valor digitado 


referenciado 

(exemplo) 

1 

T (1) 

23 

2 

T (2) 

12 

3 

T (3) 

9 

4 

T (4) 

7 

5 

T (5) 

4 


A segunda alça, que vai das linhas 170 
a 190 serve para calcular a soma dos 
pontos ganhos por todos os times. Esse 
valor será usado no cálculo da média, 
dividindo-o depois por 5. Para servir co¬ 
mo acumuladora, usamos a variável SO¬ 
MA, que deve ser zerada antes da entra¬ 
da na alça (linha 160). 

Portanto, como você viu, o programa fi¬ 
cou muito mais bem escrito, conciso e 
eficiente. 

Podemos perceber mais facilmente a 
utilidade do conjunto indexado se tiver¬ 
mos que mudar o número de times. Por 
exemplo, se fossem dez times em vez de 
cinco, teríamos que mudar apenas as li¬ 
nhas 85, 170e400: 

85 FORN = 1TO10 

170 FORN = 1TO10 

400 LET MEDIA = SOMA/10 

Você já percebeu que seria muito mais 
fácil colocar o número de times como 
uma variável NT, que seria perguntada 
ao usuário logo no início do programa, 
assim: 

52 PRINT "QUANTOS TIMES ?" 

54 INPUT NT : 

Assim, o programa fica muito mais ge¬ 
nérico, ou seja, pode ser usado em qual¬ 
quer situação, sem necessidade de se 
mudar o programa a cada momento. 
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Outra modificação interessante que 
podemos fazer ainda é mostrar de novo, 
em uma tela limpa, os valores digitados, 
antes da média. Isto é possível porque 
eles estão todos armazenados no con¬ 
junto T. 

* 


Portanto, o nosso programa modifica¬ 
do fica assim agora: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL" 

20 PRINT " TABELA DE PONTOS 
GANHOS" 

25 PRINT " VERSÃO T 
30 PRINT 
40 REM 

50 REM = = = ENTRADA DE 
DADOS 

51 REM 

52 PRINT "QUANTOS TIMES ?" 

54 INPUT NT 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 

80 PRINT 

85 FOR N = 1TONT 
90 PRINT "TIME NUMERO ";N;" ? 
100 INPUT T(N) 

110 PRINT T(N) 

120NEXTN 
130 REM 

140 REM = = = CALCULO DA 
MEDIA 
150 REM 

160 LET SOMA = 0 
165 CLS 

170 FOR N = 1 TO NT 
175 PRINT "TIME NUMERO ";N;" = 
";T(N); "PONTOS GANHOS" 
180 LET SOMA = SOMA + T(N) 
190 NEXT N 
200 REM 

210 REM = = = MOSTRA 
RESULTADOS 
220 REM 

400 LET MEDIA = SOMA/NT 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 


A tela com os resultados ficaria assim 
agora: 


TIME N? 1 = 23 PONTOS GANHOS 
TIME N? 2 = 12 PONTOS GANHOS 
TIME N? 3 = 9 PONTOS GANHOS 
TIME N? 4 = 7 PONTOS GANHOS 
TIME N? 5 = 5 PONTOS GANHOS 

MEDIA DOS PONTOS 
GANHOS = 11 



comando D1M 


Um conjunto indexado, como o que 
você viu nos exemplos acima, pode ser 
considerado também como se fosse uma 
lista. O outro nome técnico que se dá a 
esse tipo de conjunto é vetor. 

Para diferenciar uma variável numéri¬ 
ca, que só pode armazenar um valor de 
cada vez, de uma variável conjunta, usa¬ 
mos a seguinte nomenclatura: 

variável numérica simples = 

ESCALAR 

variável numérica conjunta = 
VETOR 

A nomenclatura acima é tirada da ál¬ 
gebra linear (uma parte da matemática). 

Quantos elementos pode ter um con¬ 
junto na memória? 

Existem algumas limitações quanto ao 
emprego desses elementos no BASIC do 
computador que você está usando. 

Inicialmente, um conjunto numérico 
pode ter no máximo, dez elementos, o 
que dá para algumas aplicações, mas pa¬ 
ra outras é muito pouco. Por exemplo, se 
quiséssemos colocar todos os times da 
Copa Brasil, seria muito mais do que dez, 
e o computador não aceitaria. 

Entretanto, existe um jeito de colocar 
mais de dez elementos em um conjunto. 

Para isto, temos que declarar previa¬ 
mente ao computador quantas memórias 
ele tem que reservar para o conjunto, se 
ele for conter mais de dez elementos. 

O comando pelo qual se faz essa de¬ 
claração chama-se DIM (que significa 
DIMensão). 

Dimensionamento é o termo que usa¬ 
mos para dizer quantos elementos, no 
máximo, conterá o conjunta 

No exemplo dos times, se quiséssemos 
colocar um máximo de setenta times, por 
exemplo (N = 70), seríamos obrigados a 
colocar no programa a seguinte linha: 

.45 DIMT(70) 

Esta declaração está dizendo ao 
computador: 


RESERVE uma dimensão de setenta 
elementos para o conjunto chamado T. 

Outras limitações de memória para o 
dimensionamento dos conjuntos são as 
seguintes: 

- um conjunto não pode ter mais de 
65 535 elementos. Se este número for ul¬ 
trapassado por engano, o computador 
indicará a mensagem de erro tipo B; 

- cada elemento de um conjunto ocu¬ 
pa quatro bytes. A soma dos números de 
todos os elementos de conjuntos dimen¬ 
sionados implicitamente (isto é, menos 
de onze elementos) e explicitamente 
(pelo comando DIM) não deve ser supe¬ 
rior à quantidade de memória central 
disponível (o que está sobrando, fora o 
programa). 

Se, na execução de um programa, a 
quantidade de memória não for suficien¬ 
te para todas as variáveis e conjuntos de¬ 
finidos, o computador indicará um erro 
tipo 4. Quando isso acontece, muitas ve¬ 
zes o número da linha onde ocorre o er¬ 
ro (que, na mensagem de erro na tela, 
aparece depois do sinal /) pode estar in¬ 
completo ou errado, devido também à 
falta de memória. For exemplo, a mensa¬ 
gem 4/200 poderá aparecer incompleta, 
assim: 4/2, dando uma indicação falsa. 



lgumas regras 
para o DIM 


Podemos repetir o comando DIM pa¬ 
ra quantos conjuntos houver no meu pro¬ 
grama. Deve-se usar um comando DIM 
para cada conjunto. 

10 DIM A(65) 

15 DIM B(12) 

20 DIM FG(8) 


Observe, nesse exemplo, que o con¬ 
junto FG, por ter menos de oito elemen¬ 
tos, não precisa ser colocado na linha 
DIM. Entretanto, muitos programadora 
têm hábito (aliás, muito salutar) de decla¬ 
rar no começo do programa todas as va¬ 
riáveis indexados, para fins de docu¬ 
mentação. 


Outra regra importante para o uso do 
DIM é que ele pode ser colocado em 
qualquer ponto de um programa, porém 
sempre antes de ser referenciado o con- 
junto pela primeira vez. 
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Assim, estaria errado o seguinte 
programa: 

10 POR 1=1 TO 100 
20INPUT T(I) 

30NEXTI 

40DIMK100) 

0 programa só iria indicar o erro 
quando, durante a execução, a variável 
contadora I atingisse o número 11. Isso é 
explicado pelo fato de que o interpreta¬ 
dor BASIC 'garante' a dimensãp de um 
conjunto, mesmo que não declarado em 
DIM, até dez elementos! O erro indica¬ 
do pelo computador será de tipo 3 (subs¬ 
crito fora da faixa). 

Em conseqüência, outra regra muito 
importante para o uso correto do DEM é 
que não se deve dimensionar um conjun¬ 
to com um número menor do que o valor 
dimensionado. Por exemplo: 

5 DIM T(50) 

10 POR 1 = 1 TO 100 

20LETT(I)=0 

30NEXTI 

0 programa iria executar normal¬ 
mente, até atingir 1 = 51, quando então 
o índioe na linha 20 seria maior do que 
a capacidade do conjunto T. 

Os conjuntos numéricos definidos em 
BASIC têm a seguinte característica im¬ 
portante: existe sempre um elemento nu¬ 
merado com o zero. Por exemplo: T(0) é 
um elemento válido do conjunto dimen¬ 
sionado T: 

DIM T(5) 


0 

1 

2 

3 

4 

5 


Esse elemento pode ser usado por co¬ 
mandos INPUT, LET, PRENT etc, sem 
problemas. Por isso, o conjunto T dimen¬ 
sionado como no exemplo acima, na rea¬ 
lidade tem seis elementos do comando 
DIM disponíveis, e não cinco, como po¬ 
deria parecer. Você pode decidir usá-lo 
ou não, dependendo da finalidade do 
programa. 

Finalmente, outra particularidade da 
declaração DIM. 

Nos computadores com a lógica Sin¬ 
clair, isto é, o TK83, o TK85, o CP200 etc, 
podemos redeclaiur um conjunto, ou se¬ 
ja, mudar a sua dimensão em pontos di¬ 
ferentes do programa. Por exemplo: 

10DIMAU0) 

20PORI=TO 10 
30LET A(I) = I 


40NEXTI 
50 DIM A(5) 


etc 

Neste caso, o conjunto A inicial é can¬ 
celado da memória (e com ele os dados 
armazenados), e é dimensionado um 


1. Indique abaixo se uma variável é inde¬ 
xada do tipo vetor (V), indexada do tipo 
matriz (M) ou escalar (E) 

A(3)— A3— X(5) — ZZZ—T(12,14)— 
N(7)— I — 1(2,2)— 122 —VETOR — 

2. Modifique o programa de cálculo dos 
pontos ganhos dos times, de modo que 
mostre na tela de resultados qual a dife¬ 
rença entre o número de pontos ganhos 
por cada time e a média geral. Por 
exemplo: 

TIME NUMERO 1 = 23 PONTOS 
GANHOS. DIFERENÇA DA ME¬ 
DIA = 12 PONTOS 
TIME NUMERO 2 = 12 PONTOS 
GANHOS. DIFERENÇA DA ME¬ 
DIA = 1 PONTO 


etc. 

3. Seja o conjunto C, com cinco elemen¬ 
tos. Preencha os elementos de A com os 
valores abaixo: 


! c(0) 

! c(i) 


| C(2) 
! C(3) 


; c(4) 

| C(5) 


3.1. C(0) = 3 
C(l) = 12 
C(3) = 78 

C(4) = C(l)+C(3)/2 
C(5) = C(l)+2 

E agora escreva abaixo o que cada um 


conjunto A com apenas cinco elementos. 

t 

E preciso observar entretanto, que is¬ 
so não é permitido na linguagem BASIC 
padrão e em muitos outros computado¬ 
res. Nesses outros computadores é neces¬ 
sário dar antes o comando ERASE ou 
CLEAR, dependendo da marca, para 
“limpar" a memória para outro conjunto 
com o mesmo nome 


dos programas seguintes vai mostrar na 
tela: 

3.2. 10 POR 1=0 TO 5 
20 PRINT C(I); 

30NEXTI 


3.3. 10 LETN=3 

20 PRINT C(1)+C(N)—C(N+2) 

30 PRINT N*2 + C(N-3) 

3.4. 10 LET C(5)=C(C(0)) 

20 PRINT C(5);C(0) 

4. Considere que os conjuntos A e B e as 
variáveis escalares X, Y e Z abaixo rece¬ 
beram os seguintes valores: 

A(l) 5 B(0) 3 X 0 

A(2) 25 B((l) 123 Y 1 

A(3) -9 B(2) 25.5 Z 2 

E indique agora quais serão os 
valores amostrados pelos comandos 
abaixo: 


PRINT A(l) -- 
PRINT Z 


PRINT B(Z) — 

PRINT A(A(1)—Z)— 

PRINT A(B(0)) 

PRINT B(Y)-Y 

5. Indique o que cada programa abaixo 
mostrará na tela: 


5.1. 10 DIM VET(8) 

20 FOR 1 = 0 TO 8 
30 LET VET (I) = I +1 
40NEXTI 

50 PRINT VET (0, VET(2), 
VET (4), VET(6), VET(8) 

5.2. 10 DIM A(10) 

20 DIM B(10) 

30 FOR 1=1 TO 10 
40 LET A(I) = I 
50 LET B(I) = 10-1 
60NEXTI 
70 LET SOMA = 0 




IQ 
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abelas e matrizes 



O comando DIM também pode ser 
usado para definir na memória outro ti¬ 
po de conjunto: as tabelas ou matrizes. 

Uma tabela consiste em um arranjo de 
elementos de memória dispostos em 
duas dimensões. Por exemplo, as notas 
dos alunos de uma classe, nas várias 
matérias: 


ALUNO N? 

1 

MATEMATICA 

MATÉRIAS 

2 

PORTUGUÊS 

3 

HISTORIA 

1 

8.5 

5 

9 

2 

6.5 

10 

4.5 

3 

7.5 

8 

5 

4 

2 

3 

1.5 


Por exemplo, o conjunto acima poderia 
ser chamado de NOTA. 

É necessário usarmos a declaração 
DIM, também no caso das tabelas, para 
indicar ao computador qual é a área de 
memória que ele precisa reservar para 
armazenar o conjunto. 

No exemplo acima, usaríamos a de¬ 
claração. 

DIM NOTA (4,3) 

DIM NOTA: nome da variável 

(4,3): n? de linhas e n? de colunas 

A referência a um elemento de um 
conjunto desse tipo é feita da seguinte 
forma: 

PRINT NOTA (3,2) 

PRINT NOTA: nome da variável 
(3,2): índice da linha e índice da coluna 

Dizemos que o conjunto NOTA acima 
é um conjunto bidimensional, isto é, ele 
tem duos dimensões (linhas e colunas). 


DIM B(20135) -► o conjunto B tem 
duas dimensões e 
está dimensiona¬ 
do para 20 linhas 
e 35 colunas 

Na referência a um elemento de uma 
tabela ou matriz, os subscritos (índices 
de linha e coluna) também podem ser 
variáveis ou expressões: 

PRINT A(X,5) 

INPUT B(I,J) 

LET (1,1) = B(X+25,Y*14-2) 
etc. 

É preciso lembrar também que o ele¬ 
mento 0 é automaticamente reservado 
em uma tabela de duas dimensões, com 
o comando DIM. Por exemplo: 

DIM NOTA (4,3) 

gera automaticamente os elementos 


Uma tabela é organizada em linhas e 
colunas. No exemplo acima, as linhas 
são os alunos. Cada linha contém, no 
exemplo, três colunas, correspondentes 
às matérias. 

Na memória do computador, esses da¬ 
dos seriam armazenados da seguinte 
forma: 

COLUNAS 



1 

2 

3 

1 

8.5 

5 

9 

LINHAS 2 

6.5 

10 

4.5 

3 

7.5 

8 

5 

4 

2 

3 

1.5 


Um elemento de uma tabela ou matriz 
é indicado por dois subscritos, em vez de 
um: o número da linha, seguido pelo nú¬ 
mero da coluna. 

Por exemplo: 

O ELEMENTO na LINHA 3 e COLU¬ 
NA 2 é igual a 8. 

Ele corresponde a nota de Português 

do aluno n? 3. 

Da mesma forma como nos conjuntos 
numéricos que você aprendeu até ago¬ 
ra (vetores) podemos usar um único no¬ 
me de variável para indicar uma tabela. 


O conjunto C(5), por exemplo, é então 
chamado, por analogia, de unidimensio¬ 
nal (só tem uma dimensão). 

Não confunda o termo dimensão com 
o tamanho (ou dimensionamento) de um 
conjunto expresso pela declaração DIM. 

DIMA(25) -► o conjunto A tem 
uma dimensão e 
está dimensiona¬ 
do para 25 ele¬ 
mentos 


Nesse caso, você já está percebendo 
que é desvantajoso deixar de utilizar os 
elementos com subscrito 0 em uma ma¬ 
triz, pois estaríamos desperdiçando mui¬ 
to espaço. No exemplo acima, oito ele- 


NCTA (0) 

NOTA (0,1), NOTA (0,2).... 

NOTA (0,3) 

NOTA (1,0), NOTA (0,2).... 

NOTA (0,3) 

É mais fácil entender a correspondên¬ 
cia entre subscritos de um conjunto bidi¬ 
mensional, e sua organização na memó¬ 
ria, examinando o esquema abaixo: 


mentos da matriz ficarão em branco (em¬ 
bora ocupem espaço na memória) se não 
forem usados. Quanto maior a matriz, 
maior será o número de elementos 
0 desperdiçados. 



LINHAS 


0 


COLUNAS 
1 


0 

NOTA (0,0) 

NOTA (0,1) 

NOTA (0,2) ' 

NOTA (0,3) 

1 

NOTA (1,0) 

NOTA (1,1) 

NOTA (1,2) 

NOTA (1,3) 

2 

NOTA (2,0) 

NOTA (2,1) 

NOTA (2,2) 

NOTA (2,3) 

3 

NOTA (3,0) 

NOTA (3,1) 

NOTA (3,2) 

NOTA (3,3) 

4 

NOTA (4,0) 

NOTA (4,1) 

NOTA (4,2) 

NOTA (4,3) 


* 

Portanto, o número de elementos de uma tabela é igual a: 

(número de linhas 4-1) x (número de colunas + 1) 

DIM NOTA (4,3) tem: (4 +1) x (3 +1) = 20 elementos 
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rogramando 
com matrizes 


Tal como acontece com os vetores 
(conjuntos unidimensionais), usamos as 
alças tipo FOFL.NEXT para realizar pro¬ 
gramações com conjuntos bidimensio¬ 
nais. Nesta seção aprenderemos alguns 
trugues dessas programações. 

Vamos tomar como exemplo, inicial¬ 
mente, o seguinte problema: como pode¬ 
mos programar a entrada das notas de to¬ 
dos os alunos nas três matérias em uma 


tabela na memória? 

Existem várias maneiras de resolver 
esse problema. Vamos ver as três técnicas 
principais: 

1. Sem alças 

O programa para entrada dos dados 
poderia ser feito assim: 



O programa teria gue repetir doze ve¬ 
zes cada linha PRINT e INPUT acima, 
para as três notas de cada aluno da 
classe. 

Já vimos gue esse método é bastante 
ineficiente, produz programas muito lon¬ 
gos e repetitivos, e não pode ser expan¬ 
dido com facildiade. Somente se justifi¬ 
ca seu uso guando o número de ele¬ 


mentos da matriz a ser entrada é muito 
pegueno. 

2. Com uma alça 

Evidentemente, uma maneira mais fá¬ 
cil e sintética de se resolver o problema 
acima é usar uma alça FOR...NEXT pa¬ 
ra gerar, repetitivamente, os índices do 
conjunto NOTA, para cada aluno. 


10DIM NOTA (4, 3) 

20 FOR 1 = 1 TO 4 

30 PRINT "NOTA 1 DO ALUNO NO."; I 
40 INPUT NOTA (I, 2) 

50 PRINT "NOTA 2 DO ALUNO NO.",T ' 
60 INPUT NOTA (I, 3) 

70 PRINT "NOTA 3 DO ALUNO NO.",T 
80 INPUT NOTA (I, 4) 

90 NEXTI 





repetir para alunos de 1 a 4 
mensagem para pedir nota 1 
entra nota 1 do aluno I 
mensagem para pedir nota 2 
entra nota 2 do aluno I 
mensagem para pedir nota 3 
entra nota 3 do aluno I 
próximo aluno 


Note gue a alça gue vai da linha 20 até 
a linha 90 repete sempre a mesma se- 
güência de entrada de três notas, para 
cada um dos guatro alunos. 

A variável de controle I da alça é usa-, 
da para variar o índice de linha da matriz 
NOTA. A sua ação seria semelhante à 
geração de doze comandos INPUT su¬ 
cessivos, assim: 

I comando 

1 INPUT NOTA (1,1) 

INPUT NOTA (1,2) 

INPUT NOTA (1,3) 

2 INPUT NOTA (2,1) 

INPUT NOTA (2,2) 

INPUT NOTA (2,3) 


3 INPUT NOTA (3,1-) 
INPUT NOTA (3,2) 
INPUT NOTA (3,3) 

e assim por diante. 

Esse método ainda tem também a des¬ 
vantagem de levar-nos a alterar o progra¬ 
ma, se o número de matérias (e de notas 
por aluno) for maior do gue 3. Entretan¬ 
to, se o número de colunas da matriz for 
pegueno, a técnica pode ser usada. 

3. Com duas alças * 

V 

Evidentemente, essa é a técnica mais 
genérica e sintética (ou seja, com ela po¬ 
demos escrever um programa gue faça a 
mesma coisa gue os outros, em um nú¬ 
mero menor de linhas de BASIC). 
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Essa técnica utiliza duas alças das linhas (estudantes), e a outra, para 
FOR...NEXT, uma dentro da outra. Uma controlar os índices das colunas (notas): 

alça é utilizada para controlar os índices 


10 DIM NOTA (4,3) 
20 POR 1=1 TO 4 
30FOR J=1 TO 3 



40 PRINT "ALUNO"; I; "NOTA"; J;"?" 
50INPUT NOTA (I, J) 

60 NEXT I 
70 NEXT I 






repetir para alunos de 1 a 4 
repetir para notas de 1 a 3 
mensagem para aluno I, nota J 
entrada da nota na tabela 
próxima nota do aluno I 
próximo aluno 






Veja o que apareceria na tela do com¬ 
putador, quando o programa fosse 
executado: 


ALUNO 1 NOTA 1? 
ALUNO 1 NOTA 2? 
ALUNO 1 NOTA 3? 
ALUNO 2 NOTA 1? 
ALUNO 2 NOTA 2? 
ALUNO 2 NOTA 3? 
ALUNO 3 NOTA 1? 


etc 

até completar todos os alunos e notas. 

A alça externa, com a variável I, serve 
para aumentar o índice da matriz NOTA, 
de 1 em 1. 


A alça interna, com a variável J, serve 


para aumentar o índice da matriz NOTA, 
de 1 em 1. 

Desse modo, dizemos que a alça inter¬ 
no varia (aumenta) mais depressa que o 
alça externa. 

Em outras palavras, para cada aluno I, 
o índice J varia de 1 a3. Portanto, aentra- 
da dos dados é feita por colunas. 

Poderíamos, neste exemplo, ter adota¬ 
do uma outra forma de entrada dos da¬ 
dos: entrar as notas de cada um dos alu¬ 
nos, para cada uma das matérias. Por 
exemplo, primeiro entraríamos todas as 
notas de Matemática, depis de Português 
e depois de História. 

Esse programa teria uma pequena di¬ 
ferença em relação ao anterior. Qual 
seria? 


10 DIM NOTA (4, 3) 
20FOR J=1 T03 
30 POR 1=1 T04 
40 PRINT "ALUNO"; I; 
50 INPUT NOTA (I, J) 
60 NEXT I 







—-►repetir para matérias de 1 a 3 
—► repetir para alunos de 1 a 4 
"NOTA"; I;—-► mensagem para aluno I, nota J 

—-►entrada da nota na tabela 




70 NEXT I 












--►próxima nota do aluno I 
—-► próximo aluno 


Observe que precisamos mudar ape¬ 
nas as linhas 20 e 30. 


Agora a seqüência de mensagens na 
tela ficaria assim: 


ALUNO 1 NOTA 1? 
ALUNO 2 NCTA 1? 
ALUNO 3 NOTA 1? 
ALUNO 4 NCTA 1? 
ALUNO 1 NCTA 2? 
ALUNO 2 NOTA 2? 
ALUNO 3 NCTA 2? 


ALUNO 4 NCTA 2? 


etc 

até completar todos os alunos e notas. 

A alça externa, com a variável I, serve 
para aumentar o índice da matriz NCTA, 
de 1 em 1. 

A alça interna, com a variável I, serve 
para aumentar o índice da matriz NCTA, 
de 1 em 1. 


abelas de qualquer 
tamanho 


Uma grande vantagem do esquema 
de programação com duas alças é que 
podemos fazer um programa para qual¬ 
quer número de alunos ou de matérias, 


pois o valor limite das alças I e J pode ser 
entrado como uma variável do 
programa. 

Veja o exemplo abaixo: 


10 DIM NOTA (50,15) 

12 PRINT "QUANTOS ALUNOS?" 

14INPUT NA 

16 PRINT "QUANTAS MATÉRIAS?' 
18 INPUT NM 
20 FOR 1=1 TO NA 
30 FOR 1=1 TO NM 
40 PRINT "ALUNO'; I; "NOTA"; J; "?" 
50 INPUT NOTA (I, I) 

60NEXTJ 
70NEXTI 









--►pergunta número de alunos (NA) 

—►pergunta número de matérias 
—►repetir para alunos de 1 a NA 
—-► repetir para matérias de 1 a NM 
—•►mensagem para aluno I, nota J 
-—►entrada da nota na tabela 
próxima nota do aluno I 
próximo aluno 



Observe que demos agora uma capa¬ 
cidade maior à matriz NOTA, de modo a 
comportar notas de até 50 alunos e 15 
matérias. 

Novamente, com apenas duas peque¬ 
nas mudanças nas linhas 20 e 30 do pro¬ 
grama, ele continua sendo válido para 
qualquer número de alunos e de notas 
(desde que não ultrapassem os limites 
impostos pela declaração DIM, é claro!) 


As alças "embutidas" (ver página 53) 
podem ser utilizadas também para mos¬ 
trar o conteúdo dos elementos de uma 
matriz, por meio do comando PRINT, ou 
para cálculos (por exemplo, cálculo das 
médias de cada aluno). 

Veja o exemplo abaixo, ainda utilizan¬ 
do a tabela de notas: 


| íy 8 3 . ; - - -v; jk . ' • 

90CLS limpa a tela 

100 FOR 1=1 TO 4 —♦ repetir para alunos de 1 a 4 

110 FOR J=1 TO 3 —♦ repetir para notas de 1 a 3 

120 PRINT "ALUNO'; I; "NOTA"; I;"-"; NOTA (I, J) 

140 NEXT J —próxima nota do aluno I 


160NEXTI 




-—►próximo aluno 


Este programa mostraria na tela o se¬ 
guinte resultado (com os dados da tabe¬ 
la de exemplo): 


ALUNO 1 NOTA 1 = 8.5 
ALUNO 1 NOTA 2 = 5 
ALUNO 1 NOTA 3 = 9 
ALUNO 2 NOTA 1 = 6.5 
ALUNO 2 NOTA 2 = 10 
ALUNO 2 NOTA 3 = 4.5 


ALUNO 3 NOTA 1 = 7.5 


etc 

É óbvio que essa não é uma maneira 
muito elegante de apresentar uma tabela 
de notas. 

Mas, com pequenas modificações no 
programa, podemos fazer isso facilmen- 
ta Observe a diferença: 


—■► limpa a tela 
—-repetir para alunos de 1 a 4 

—► repetir para notas de 1 a 3 




90CLS 

100 FOR 1=1 TO 4 
105 PRINT "ALUNO'; I; 

110 FOR J=1 T03 

120 PRINT TAB (J*10 +3); NOTA (I,J); 

140 NEXT J —-►próxima nota do aluno I 

150 PRINT 
160 NEXT I 


-—►próximo aluno 






■A. * »*/ 
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Agora os resultados aparecerão assim 

ALUNO 1- 8.5 5 9 

ALUNO 2- 6.5 10 4.5 

ALUNO 3- 7.5 8 5 

ALUNO 4- 2 3 1.5 

Vamos entender como essa parte do 
programa funciona: 


A linha 105 escreve na tela a palavra 
ALUNO, seguida do seu número (no ca¬ 
so, o conteúdo da variável I, gue é au¬ 
mentada de 1 em 1 pela alça da linha 
100). O ponto-e-vírgula colocado no fi¬ 
nal dessse comando assegura que o pró¬ 
ximo comando PRINT escreva na mesma 
linha (logo após o sinal de subtração). 


A linha 120 escreve na tela todas as três 
notas para o aluno I, sempre na mesma li¬ 
nha, pois também tem um ponto-e- 
vírgula no seu final. 

A expressão que usa a função TAB 
serve para alinhar (colocar nas mesmas 
colunas, na vertical) cada uma das notas 
das matérias. 


lação, e funciona exatamente como o ta- 
bulador de uma máquina de escrever. E 
muito útil, portanto, para a programação 
de tabelas. 

A expressão entre parênteses será cal¬ 
culada, dentro de cada repetição de I e 
J, e irá determinar esta nova posição n: 


J valor da expressão (1*10+3) 

1 (1x10 + 3) 13 

2 (2x10 + 3) 23 

3 (3x10 + 3) 33 


Portanto, vemos que cada nota come¬ 
çará nas colunas 13,23 e 33 da mesma li¬ 
nha, respectivamente. 

O comando PRINT na coluna 150, Por 
sua vez, serve para passar o cursor para 
a linha seguinte Se ele não fosse coloca¬ 
do aí (ou seja, depis de terminar todas as 
notas de uma linha, ao final da alça J), as 
notas do próximo aluno continuariam a 
ser mostradas na mesma linha do aluno 
anterior, pois existe um ponto-e-vírgula. 
Colocando-se o PRINT sozinho, essa li¬ 
nha é encerrada, e passar-se à próxima. 


Relembrando, a função TAB n vai mo¬ 
ver a posição de impressão (cursor) na 
tela, até a coluna n. TAB significa tabu- 


Experimente colocar o programa no 
computador e retirar a linha 150 para ver 
o que acontece! 



azendo cálculos 
em uma tabela 


O mesmo esquema de duas alças tam¬ 
bém pode ser utilizado para realizar cál¬ 
culos ou comparações lógicas com os 
elementos de uma matriz. 


Vamos imaginar, por exemplo, que 


190 LET SOMA = 0 
200 FOR I = 1 TO 4 
210 FOR J= 1 TO 3 

220 LET SOMA = SOMA + NOTA (I, J) 

230NEXTJ 

240 NEXTI 

250 LET MED = SOMA/12 
260 PRINT 

270 PRINT "MEDIA = MED 


queremos saber qual foi a média de todas 
as notas tiradas para a classe. 

Para isso, primeiro vamos ter que so¬ 
mar todas as notas contidas na matriz 
NOTA, e depois dividir pelo total de no¬ 
tas, certo? 

zerar um acumulador 
—►repetir para alunos de 1 a 4 
repetir para notas de 1 a 3 
—-► acumular a soma com a nota 
—► próxima nota do aluno I 
--►próximo aluno 
-—►calcula a média 

. r 


Essa parte do programa, portanto, pe¬ 
garia cada um dos elementos da matriz 
NOTA em seguida, através da variação 
dos índices I e I, e somaria à variável 
SOMA. 

Não precisamos, necessariamente, fa¬ 
zer variar os dois índices da matriz NO¬ 


TA, através de alças FOR...NEXT. 

Vamos imaginar, por exemplo, que 
queremos saber apenas a médida das 
notas de todos alunos para uma determi¬ 
nada matéria. Para isto, a variável SOMA 
deveria s% acumulada apenas com os 
valores da coluna desejada: 
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290 LET SOMA = 0 
300 FOR 1=1 TO 4 

310 LET SOMA = SOMA + NOTA (1,1) 
320 NEXTI 

330 LET MED = SOMA/4 
340PRINT 

350 PRINT "MEDIA DE MATEMATICA 


—-►zerar um acumulador 
—►repetir para alunos de 1 a 4 
—-►acumular a soma com a nota 
--►próximo aluno 
-—►calcula a média 

= MED 







Note que a linha 310 soma apenas os 
elementos 

NOTA (1,1) NOTA (2,1) NOTA (3,1) 
e NOTA (4,1) 

Isso ocorre porque o índice da coluna 
(no caso, coluna 1) está fixo dentro do 


proqrama, ou seja, é uma constante que 
não varia, ao passo que o índice de linha 
(alunos) varia de 1 a 4, através da alça I 
da linha 300. 

Para tomar mais geral esta parte do 
programa, poderíamos perguntar ao 
usuário de que matéria ele deseja saber 
a média. 




280 PRINT "ENTRE QUE MATÉRIA (1,2 OU 3);" 

285INPUT M 

290 LET SOMA = 0 —-► zerar um acumulador 

300 FOR 1=1 TO 4 -—►repetir para alunos de 1 a 4 

310 LET SOMA = SOMA + NOTA (I,M) -—►acumular a soma com a nota 
320 NEXT I -—►próximo aluno 

330 LET MED = SOMA/4 —►calcula a média 

340 PRINT 

350 PRINT "MEDIA DE MATÉRIA M;" = MED 








Chj ainda, poderíamos obter automa- rias, usando uma alça externa para fazer 

ticamente as médias para todas as maté- variar os índices de coluna: 





280 FOR M = 1 TO 3 
290 LET SOMA = 0 
300 FOR 1= 1 T04 

310 LET SOMA = SOMA + NOTA(I,M) 
320 NEXT I 

330 LET MED = SOMA/4 
340 PRINT 

350 PRINT "MEDIA DE MATÉRIAM;" 
360 NEXT M 






•repetir para matérias de 1 a 3 
zerar um acumulador 
repetir para alunos de 1 a 4 
►acumular a soma com a nota 
►próximo aluno 
►calcula a média 

MED 

► próxima matéria 



Observe que estamos usando as mes¬ 
mas variáveis, SOMA e MED, para o cál¬ 
culo da média de cada nota. Isso real¬ 
mente não tem importância, pois não 


queremos armazenar os valores das mé¬ 
dias de todas as matérias. A variável SO¬ 
MA, portanto, deve ser zerada dentro da 
alça externa, e fora da alça interna. 
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■ m programa 
B 0 completo 



Vamos fazer agora um programa com¬ 
pleto, utilizando o exemplo das notas de 
ima classe 

Neste programa queremos fazer o 
seguinte: 

1. entrar as notas de cada aluno, em to¬ 


MATERIA ";J;" ?"; 

340INPUT NCTA(IJ) 

350IF NOTAdJ) <0THEN 
GOTO 340 

360 IF NOTA (I, J) > 10THEN 
GOTO 340 
370 PRINT NCTA(IJ) 

380 NEXTI 
390 REM 

400 REM **** MOSTRA NOTAS NA 
TELA *** 

410 REM **** E CALCULA 
MEDIAS **** 

420 REM 
430 PT S 

440FORJ=l TONA 
450 PRINT 'ALUNO 


das as matérias; 

2. mostrar essas notas na tela, em for¬ 
ma de tabela. Aproveitamos para 
calcular e mostrar a médida aritmé¬ 
tica de cada aluno, nessa tabela; 

3. calcular e mostrar a médida de ca¬ 
da matéria. 

Vamos lá: 

10 REM = = = = = = = = = = = = = = 
20 REM = BOLETIM DE NOTAS DA 
‘ CLASSE 

30 REM = BASIC PARA TK 85 
40 REM = R. SABBATINI ABRIL 1985 
50 REM = = = = = = = = = = = = 
60 REM 

70 REM **** INICIALIZACAO **** 

80 REM 

90 DIM NOTA(50, 15) 

100 CLS 

110 PRINT "CALCULO DO 
BOLETIM DE NOTAS" 

120 PRINT 
130 REM 

140 REM **** ENTRADA DE 
PARÂMETROS **** 

150 REM 
160 PRINT 

170 PRINT "NUMERO DE ALUNOS 
NA CLASSE ?"; 

180 INPUT NA 

190 IF NA > 50 THEN GOTO 170 
200 PRINT NA 
210 PRINT "NUMERO DE 
MATÉRIAS ?"; 

220 INPUT NM 

230 IF NM > 15 THEN GOTO 210 
240 PRINT NM 
250 REM 

260 REM **** ENTRADA DE 
DADOS **** 

270 REM 

280 PRINT "ENTRE AS NOTAS DOS 
ALUNOS:" 

290 PRINT 

300 FOR 1=1 TO NA 

310 PRINT "ALUNO N? ";I 

320 FOR J=1 TO NM 

330 PRINT TAB (7);"NCTA DA 


460 LET SOMA= 0 

470 FOR 1 = 1 TO NM 

480 PRINT TAB( 10+5* J);NOTA(I,J); 

490 LET SOMA= SOMA+NCTA(I,J) 

500 NEXT I 

510 PRINT " MED ";SOMA/NM 
520 NEXT I 
530 REM 

540 REM **** CALCULA MEDIA 
DAS MATÉRIAS **** 

550 REM 

560 FOR 1=1 TO NM 

570 LET SOMA= 0 

580 FOR 1=1 TO NA 

590 LET SOMA=SOMA+NOTA(IJ) 

600 NEXT I 

610 PRINT 

620 LET MED=SOMA/NA 
630 PRINT "MEDIA NA MATÉRIA 
";J;" = "MED 
640 NEXT I 
650STOP 


2 nálisedo 
III programa 



Vamos analisar o programa linha por 

linha, agora, para podermos entender o 

gue elas fazer: 

10 a 50 - Nestas linhas colocamos um 

cabeçalho interno de iden¬ 
tificação do programa (au¬ 
tor, data, computador etc). 

90 -Dimensionamento do con¬ 

junto NOTA. 

I * 

100 a 120 -Mostrar título do programa 
na tela (para gue serve). 

/ 

170 a 180 -Pergunta guantos alunos 
tem, e entra na variável NA. 

190 -Testa se NA é maior do gue o 


permitido pelo comando 
DIM. Se isto acontecer, pe- 
gunta novamente. 

200 a 210 -Pergunta guantas matérias 
tem, e entra na variável NM. 

220 -Testa se NM é maior do que 
o permitido pelo comando 
DIM. Se isso acontecer, per¬ 
gunta novamenta 

280 a 290 -Dá instruções para entrada 
de dados. 

300 -Alça de repetição dos 

alunos. 

310 -Mostra identificação do alu¬ 

no a ser entrado. 

320 - Alça de repetição das maté¬ 

rias por aluno. . 

330 a 340 -Pergunta nota. 

350 a 360 -Testa se a nota está entre Oe 
10. Em caso contrário, per¬ 
gunta a nota de novo. 

440 a 520 -Parte do programa que mos¬ 
tra as notas na tela. 

Na linha 460, zera o soma- 
dor de notas de um aluno. 
Na linha 490, efetua esta so¬ 
ma, e na linha 510 mostra a 
média. 

560 a 640 -Parte do programa que cal¬ 
cula as médias das matérias. 

Coloque agora o programa no compu¬ 
tador e teste com os dados da tabela de 

exemplo deste capítulo. 



1. O conjunto DADOS, ,com cinco li¬ 
nhas e quatro colunas, contém os se¬ 
guintes elementos: 


UNHAS 


COLUNAS 



1 

2 

3 

4 

1 

12 

23.4 

16.7 

100 

2 

5 

6.7 

9.2 

12 

3 

14 

6.1 

1.1 

25 

4 

9 

45.8 

10.9 

13 

5 

1 

0 

32 

43 


86 

























Responda às seguintes questões (exem¬ 
plo de resposta na primeira linha): 


tor (conjunto unidimensional) chamado 
COPIA. 


1.1. Quais são os subscritos de linha e 
coluna dos elementos cujo conteúdo é: 


23.4- Resposta: DADO (1,2) 


45.8- 


6. Faça um programa para copiar uma 
das colunas da matriz DADO, para um 
vetor chamado COPIA. 

7. Escreva um programa para preen¬ 
cher com o valor 1 todos os elementos da 
diagonal principal de um conjunto 
A(10,10). 


32 - 
43 - 
100 - 

1.2. Escreva uma declaração DIM para 
o conjunto DADOS acima. 

Resposta: . 

1.3. Indique o valor contido nos elemen¬ 
tos abaixo: 

DADO(2,l): . 

DADO(3,3): . 

DADO(DADO(2, l),DADO(4,1)): . 

DADO(4,DADO(4,1)):. 

DADO(5,5): . 

DADO(l,5): . 

DADO(5,l): . 

DADO(4,l): . 

2. Escreva um programa com a alça 
FOR NEXT, para preencher com dados 
os elementos do conjunto DADO (por 
meio de um comando INPUT). 

3. Escreva um programa para preen¬ 
cher com zeros todos os elementos do 
conjunto DADO. 



Dica: Diagonal principal é o conjunto 
de todos os elementos da matriz que têm 
o mesmo índice de linha e de coluna. 
Por exemplo: os elementos A(l,l), 
A(2,2), A(3,3)... etc. estão na diagonal 
principal. 

8. Indique qual o erro nos programas 
abaixo: 

8.1. 10 DIM A(7,6) 

20 FOR 1=0 TO 7 
30 LET A(I,7)=1 
40 NEXT I 

8.2. 10 FOR 1=2 TO 100 STEP 3 
15 LET B(I,10)=B(I,1)*2 
20 NEXT J 
30DIMB(100,10) 

8.3. 10 DIM X (50,10) 

20 FOR 1=1 TO 10 
30 FOR 1=1 TO 50 
40 LET X (1,1)=0 
50 NEXT I 
60 NEXT J 

9. Indique se as linhas de programa 
abaixo estão certas (C) ou erradas (E). 
Caso estiverem erradas, explique onde 
está o erro: 



4. Explique o que realizam os progra¬ 
mas abaixo, e qual o resultado mostra¬ 
do pelo comando PRINT na linha 100, 
tomando como dados o conjunto DA¬ 
DOS acima: 


PRINT XX(A+5,10) 

LETC(1;2)=896 

PRINT A218(B5,B5+3 - T*4) 


4.1. 10PR=1 
15LETC=3 

20 PORL=l T05 
30 LET PROD= 
PROD*DADO(L,C) 

40 NEXT L 
100 PRINT PROD 

4.2. 10 LET S=0 

15 FOR 1=2 TO 4 STEP 2 
20 FOR J=IT04 
30 LET S=S+DADO(I,I) 

40 NEXT I 
50 NEXT I 
60 PRINT S 

5. Faça um programa para copiar uma 
das linhas da matriz DADO, para um ve- 


PRINT CONI(4,5) 

PRINT B(67000,2) 

PRINT X(3.2,4.55) 

10. Modihque o programa completo de 
cálculo de boletim de notas, da seção 
anterior, de modo a realizar as seguin¬ 
tes funções adicionais: 

a. Calcular a média global da classe 
(todas as notas). 

b. Indicar, ao lado da média de cada 
aluno, se ela está acima ou abaixo da 
média global da classe. 
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Também podemos programar em BA¬ 
SIC uma variável conjunta alfanuméri¬ 
ca. No exemplo dos times, poderíamos 
então armazenar os nomes dos times em 
uma lista, assim: 

25 LET TIME$( 1)="PALMEIRAS" 

26 LET TIME$(2)="SANTOS" 

27 LET TIME$(3) = "CORINTHIANS" 

28 LET TIME$(4)="FLAMENGO" 

29 LET TIME$(5)="FLUMINENSE" 

e assim por diante. 

Dimensionar um conjunto literal como 
este é um pouco mais complicado do 


que dimensionar um conjunto numéri¬ 
co (um vetor). 

Como você deve se lembrar, um cordão 
alfanumérico ("string") ê armazenado 
no computador como uma série de me¬ 
mórias interligadas. Ou seja, uma variá¬ 
vel literal simples já é um conjunto de 
memórias. 

Normalmente, podemos encher uma 
variável literal simples com até 255 ca¬ 
racteres, sem necessidade de usar o co¬ 
mando DIM (ou seja, é diferente do con¬ 
junto numérico, que só permite dez ele¬ 
mentos nessas condições). 


TIPO DE VARIÁVEL 

ESPAÇO PRÉ-DIMENSIONADO 

Conjunto numérico 

1 2 

3 ...10 


Variável literal 

1 

2 3 

.255 



Se usarmos o comando DIM com uma 
variável literal simples, estaremos auto¬ 
maticamente limitando o número de ca¬ 
racteres que esta variável irá aceitar. Por 
exemplo: 

10 DIM LETRAS$(10) 

20 LET LETRAS$='ABCDEFGHÜKL 
MNOPQRSTUVXZ" 

Neste caso, o comando 
30 PRINT LETRAS$ 
irá mostrar apenas este resultado (as dez 


primeiras letras foram aceitas no coman¬ 
do LET da linha 20): 

ABCDEFGHD 

Para dimensionar um conjunto literal, 
portanto, podemos utilizar uma tabela 
como se fosse uma página com várias li¬ 
nhas de tamanho fixo: 

10 DIM T$(5,15) 

Isso equivale a um conjunto de duas di¬ 
mensões, organizado assim: 




ÍNDICE 


0 






1 
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4 






ESPAÇO DIMENSIONADO 
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0 primeiro número entre parênteses 
no comando DIM especifica o número 
de linhas que constam do conjunto, ou 
seja, quantos nomes separados eu pode¬ 
rei colocar na minha lista. 

0 segundo número entre parênteses 
(depois da vírgula) corresponde ao nú¬ 
mero de colunas que constam do con¬ 
junto, ou seja, quantos caracteres, no 
máximo, poderá ter cada nome da lista. 


Como no caso dos conjuntos numéri¬ 
cos, existe um elemento 0 que é reserva¬ 
do automaticamente (você pode usá-lo 
ou não, à vontade). 

A única diferença em relação a um 
conjunto numérico é que não èxiste a 
coluna numerada zero, ou seja, ela não 
é ocupada por um caractere do cordão. 

Preenchendo com os nomes dos times 
do exemplo acima, teríamos: 
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Você deve ter notado dois fatos interes¬ 
santes aqui: 

1. A linha do começo do conjunto (linha 
0) está vazia. 

2. Sobram espaços em branco depois 
dos nomes dos times, em cada linha, 
se estes tiverem menos do que os 
quinze caracteres dimensionados. 

O primeiro fato pode ser explicado 
porque tínhamos colocado os co¬ 
mandos: 


25 LET TIME$( 1)="PALMEIRAS" 

26 LET TIME$(2)="SANTOS" 

27 LET TIME$(3)="CORINTHIANS" 

28 LET TIME$(4)="FLAMENGO" 

29 LET TIME$(5)="FLUMINENSE" 


Mas nada impediria que colocás¬ 
semos: 

24 LET TIME$(0)="SAO PAULO" 

E, neste caso, a linha 0 também seria 
ocupada: 
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ando nome 
aos bois 


Vamos refazer agora o programa de 
entrada dos pontos ganhos por time de 
futebol, colocando também os nomes 
dos times. 

Um programa para entrar os nomes 
dos times, por exemplo, seria assim: 

10 DIM TIME$(5,15) 

20 FOR 1=1 TO 5 

30 PRINT "NOME DO TIME ?"; 

40INPUT TIME$(I) 

50 NEXTI 

Note que o número de subscritos na 
declaração DIMé diferente do número 
de subscritos na declaração INPUT, 
quando se trata de conjuntos de cor¬ 
dões. Isso não acontece em conjuntos 
numéricos: ambos os números precisam 
ser iguais. 

Podemos aproveitar a alça de entrada 
do programa dos times de futebol para 
colocar também duas linhas que possi¬ 
bilitem a entrada do nome: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL" 

20 "TABELA DE PONTOS GANHOS" 
30 PRINT 

35 DIM TIME$(5,15) 

40REM 

50 REM::: ENTRADA DE DADOS 
70 REM 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 

80 PRINT 
85 FOR N=1 TO 5 
90 PRINT "NOME DO TIME 
NUMERO ";N;" ?"; 

95 INPUT TIME$(N) 

96 PRINT TIME$(N) 

98 PRINT "NUMERO DE PONTOS 
GANHOS ?"; 

100 INPUT T(N) 

110 PRINT T(N) 

120 NEXT N 
130 REM 

140 REM =" CALCULO DA MEDIA 
150 REM 

160 LET SOMA= 0 
170 FOR N = 1 TO 5 
180 LET SOM A = SOMA + T(N) 

190 NEXT N 
200 REM 
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210 REM::: MOSTRA RESULTADOS 
220 REM 

400 LET MEDIA - SOMA/5 
410PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 

Eis aqui um exemplo de utilização do 
programa: 

CAMPEONATO BRASILEIRO DE 
FUTEBOL 

TABELA DE PONTOS GANHOS 

ENTRE O NUMERO DE PONTOS 
GANHOS PARA CADA TIME 
DA TABELA: 

NOME DO TIME NUMERO 1 ? 
PALMEIRAS 

NUMERO DE PONTOS GANHOS ? 23 
NOME DO TIME NUMERO 2 ? 
SANTOS 

NUMERO DE PONTOS GANHOS ? 12 
NOME DO TIME NUMERO 3 ? 
CORINTHIANS 

NUMERO DE PONTOS GANHOS ? 9 
NOME DO TIME NUMERO 4 ? 
FLAMENGO 

NUMERO DE PONTOS GANHOS ? 7 
NOME DO TIME NUMERO 5 ? 
FLUMINENSE 

NUMERO DE PONTOS GANHOS ? 4 
MEDIA DOS PONTOS GANHOS = 11 


Você deve estar perguntando a esta al¬ 
tura: Por que entrar os nomes dos times, 
se eles não são usados em nenhum outro 
lugar do programa? 

Realmente, se for só para informar no 
momento de entrada de dados, é desne¬ 
cessário entrar os nomes dos programas. 


430 CLS 

440 PRINT TAB( 5);TIME"; 

TAB(15);"PONTOS"; 

450 PRINT TAB(22);"DIFERENCA 
MEDIA" 

460 FOR 1 = 1 TO 5 
470 PRINT I;“ ";TIME$(I); 

TAB(7);T(I);TAB(17);MEDIA - T(I) 
480 NEXTI 
490 STOP 


Porém, uma vez que já temos os nomes 
armazenados no conjunto TIME$, po¬ 
demos usá-los para outros fins. 

Vamos supor que queremos modificar 
o programa acima, de modo a mostrar 
na tela o seguinte resultado: 


A expressão da linha 470 mostra os 
dados de entrada e a diferença dos 
pontos ganhos por cada time, em rela¬ 
ção à média calculada. 

Portanto, para realizar este tipo de cál¬ 
culo, bem como mostrar os resultados, é 
necessário usar conjuntos para armaze¬ 
namento intermediário dos dados. 


TIME 

PONTOS 

DIFERENÇA MEDIA 

PALMEIRAS 

23 

12 

SANTOS 

12 

1 

CORINTHIANS 

9 

-2 

FLAMENGO 

7 

-4 

FLUMINENSE 

4 

-7 


Para fazer isso, tiramos a linha 430 do programa anterior e adicionamos: 



istos internas 
de nomes 


jj 


Muitos programas utilizam listas de no¬ 
mes e outros dados, que podem ser de¬ 
finidos como fixos, dentro dos mesmos, 
em vez de serem entrados por meio de 
comandos INPUT. 

Em muitos computadores, existem dois 
comandos (READ e DATA) que facilitam 
bastante a definição interna de tais listas. 
Entretanto, os computadores com a lógi¬ 
ca SINCLAIR (por exemplo, o TK83, 
TK85, CP200etc, no Brasil) não têm es¬ 
tes comandos no seu interpretador BA¬ 
SIC. Por isso, temos que usar alguns tru¬ 
ques e assim contornar essa falta. 

O mais comum, se o número de ele¬ 
mentos dos conjuntos não for muito 
grande, é defini-los no programa por 
meio de declarações LET. 


Vamos tomar um exemplo. 

Suponhamos que o dono de uma loja 
de frios queira emitir uma nota de des¬ 
pesas para cada cliente que efetua com¬ 
pras na sua loja. Os produtos que ele tem 
para vender são fixos, e podem constar 
do programa. Para cada cliente ele digi¬ 
ta a quantidade comprada e o preço por 
quilograma da mercadoria. Em segui¬ 
da, aparece a nota na tela, com o total 
das despesas, bem como o nome e valor 
de cada mercadoria comprada. 

Vamos definir o conjunto M$, que 
contém os nomes das mercadorias, e os 
conjuntos Q e PR, que contêm quanti¬ 
dade e preço, respectivamente. 

10 CLS 

20 PRINT "EMISSÃO DE NOTA DE 

DFqPFÇAÇ" 

30 PRINT "CASA DE FRIOS" 
"AZEITONA DOURADA" LTDA" 

40 PRINT 

50DIM M$(5,20) 

55DIM TT(5) 

60 LET M$(0) = "AZEITONAS 
PRETAS" 

70 LET M$( 1) = "AZEITONAS' 


VERDES" 

80 LET M$(2) = "PRESUNTO 
GORDO" 

90 LET M$(3)="PRESUNTO 
MAGRO" 

100 LET M$(4) = "MOZARELA" 

110 LET M$(5)="QUEIIO PRATO" 
120 REM 

130 REM ***** ENTRADA DOS 
DADOS DA COMPRA ***** 

140 REM 

150 PRINT "DIGITE A QUANTIDADE 
COMPRADA E DEPOIS" 

160 PRINT "O PREÇO POR 
QUILOGRAMA PARA 
CADA MER -" 

170 PRINT "CADORIA APRESENTA¬ 
DA NA TELA. DIGITE 0" 

180 PRINT "SE O CLIENTE NAO 
COMPROU A MERCADORIA" 
190 PRINT 
200 FOR 1 = 1 TOS 
210 PRINT M$(I); " ? " 

220 INPUT 0(1) 

230IF Q(I) = 0 THEN GOTO 250 
240 INPUT PR(I) 

250 NEXT I 
260 REM 

270 REM ***** IMPRESSÃO DA 
NOTA ***** 


90 








280 REM 
290 CLS 

300 PRINT " NOTA 

DE DESPESAS" 

310 PRINT 

320 PRINT "MERCADORIA"; 

TAB(17);"QUANT PRECO" 

325 LET TOT= 0 

330 FOR I = 1 TO 5 

340IF Q(I) = 0 THEN GOTO 360 

350 PRINT M$(I);TAB(17);Q(I); 

TAB(22);Q(I)*PR(I) 

355 LET TOT-TCT+Q(I)*PR(I) 

360 NEXTI 

365 PRINT "TCTAL";TAB(22);TCT 

370 PAUSE 600 

380 CLS 

390 GOTO 150 


O comando IF da linha 230 serve para 
testar se a quantidade comprada foi ze¬ 
ro. Neste caso, o programa não pede o 
preço depois. 

0 comando IF da linha 350 testa tam¬ 
bém se a mercadoria tem valor zero de 
quantidade, e passa para a linha 350 de 
apresentação, neste caso. 





Q 
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1. Modifique o programa de emissão de 
nota de despesas, de modo a ter as se¬ 
guintes funções adicionais: 


a. entrar a data de emissão da nota e o 
nome do cliente, para mostrar na tela de 
emissão; 



b. armazenar o valor total de cada nota, 
cumulativamente em uma variável REN¬ 
DA, e mostrar este valor se o nome do 
cliente for "FIM". 


2. Modifique o programa de cálculo de 
boletim de notas (página 87 ), a fim de 
poder entrar e mostrar o nome de cada 
aluno. 


L istas mais 

complexas 


Muitos programas necessitam de 
várias listas alfanuméricas relaciona¬ 
das entre si. 

Vamos tomar como exemplo o se¬ 
guinte problema de programação: 

Queremos fazer um programa para 
entrar pelo teclado e armazenar na 


memória do computador uma cader¬ 
neta de endereços de amigos e co¬ 
nhecidos. Gostaríamos que neste 
programa os dados relativos a cada 
pessoa fossem armazenadas em listas 
separadas: 

NOME$ -lista dos nomes das 
pessoas 

ENDEREÇOS -lista dos endereços 

TELEFONES -listas dos telefones 

Assim, por exemplo, os dados so¬ 
bre as pessoas seriam armazenadas 
nos elementos das listas: 


ÍNDICE 

NOMES 

ENDEREÇOS 

TELEFONES 

1 

Maria Alice 

Rua do Bonfim, 122 

234-3443 

2 

Roberto 

Av. da Praia, 12/456 

123-5566 

3 

Susana 

Pça. dos Coqueiros, 9 

32-4567 

4 

Tio Zé 

Rua do Bonde, 334 

64-5980 

etc. 




Note que os elementos NOMES (5), 
ENDEREÇOS (5) e TELEFONES (5), 
por exemplo, contêm dados da pes¬ 
soa n? 5 em nossa caderneta. 

Organizando os dados dessa for¬ 
ma, será mais fácil programar as di¬ 
versas funções que caracterizam um 
programa de cadastramento de infor¬ 
mações, como é o caso da nossa ca¬ 
derneta de endereços. 

Programas desse tipo têm normal¬ 
mente as seguintes funções (partes do 
programa que realizam daterminadas 
tarefas em relação aos conjuntos de 
dados): 

- incluir na caderneta os dados de 
uma pessoa; 


- procurar o telefone ou endereço 
de uma determinada pessoa; 

- modificar os dados de uma pessoa 
(por exemplo, se ela mudou de te¬ 
lefone ou de endereço). 

Uma forma bastante simples e mui¬ 
to utilizada de programar a opção do 
usuário por estas funções é um menu. 

Na gíria de computação, um menu 
é uma lista das opções disponíveis de 
processamento dentro de um deter¬ 
minado programa, apresentada ao 
usuário para que ele selecione uma. 

Em nosso programa, um exemplo 
prático de menu seria: 



AGENDA TK 

CADERNETA DE ENDEREÇOS 

COMANDOS: 

** . 

— título do menu 

1 

2 
3 

INCLUIR UM NOME 
MODIFICAR DADOS 
INFORMAR DADOS 

** . 

— lista de comandos 

4 

FIM 

<. 

—- comando para terminar o 




programa 

DIGITE UM NUMERO: 

-. 

—- mensagem de solicitação 
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A apresentação deste menu geral- 180 PRINT "DIGITE UM 
mente é colocada logo no início do NUMERO:" 

programa: 190 IMPUT OPCAO 

200 IF OPCAO < 1 THEN 

40 CLS . GOTO 190 

50 PRINT “ AGENDA TK" 210 IF OPCAO > 4 THEN 

60 PRINT "CADERNETA DE GOTO 190 

ENDEREÇOS" 

70 PRINT A linha 190 fica aguardando até 

80 PRINT " COMANDOS:" gue o usuário digite um número cor- 

90 PRINT " =============== respondente à opção que ele deseja 

—-- 11 PYPPi 

100 PRINT "1 INCLUIR 

UM NOME" As linhas 200 e 210 testam se o nú- 

120 PRINT "2 MODIFICAR mero digitado está situado entre 1 e 4 

DADOS" (as opções disponíveis). Se for digita - 

130 PRINT "3 INFORMAR do um número diferente destes, o 

DADOS" programa retornará à* linha 190, até 

150 PRINT "4 FIM" que a entrada esteja correta. 

160 PRINT " =============== 

_======= === " A partir daí, a estrutura do progra- 

170 PRINT ma poderá ser a seguinte: 


^ INICIO 




Explicando: 


Após a escolha do usuário, o pro¬ 
grama desvia para o segmento apro¬ 
priado, que irá realizar aquela fun¬ 
ção. Depois de terminá-la, retorna ao 
início do programa, para apresentar 
de novo o menu (exceto guando o 
usuário escolhe terminar o progra¬ 
ma). 


Essa estrutura permite que o usuá¬ 
rio do programa realize facilmente 
uma série de tarefas, na ordem que 
julgar mais interessante, sem necessi¬ 
dade de "decorar" comandos por ex¬ 
tenso ou ser obrigado a seguir uma 
ordem inflexível de processamento. 

Continuando a programação, de¬ 
vemos dimensionar previamente os 
conjuntos alfanuméricos que serão 
utilizados: 


37 DIM NOME$ (50,25) 

38 DIM ENDEREÇOS (50,25) 

39 DIM TELEFONES (50,10) 

Note gue dimensionamos a cader¬ 
neta para um máximo de 50 nomes de 
25 caracteres cada, mais os endere¬ 
ços, também de 25 caracteres cada, e 
os telefones, com 10 caracteres cada. 

Portanto, a quantidade de memória 
a ser ocupada por esses conjuntos se¬ 
rá de: 

50 x 25 + 50 x 25 + 50 x 10 = 
3 000 caracteres 

Portanto, atenção : o programa não 
poderá ser utilizado em microcompu¬ 
tadores com dois kbytes de memória 
(versão básica do TK 82 e do TK 83); 
apenas em computadores de maior 
capacidade. 

Para armazenar um número maior 
ou menor de endereços, basta alterar 
os valores nos comandos DIM. 

Observe também gue cada infor¬ 
mação tem um -limite máximo em nú¬ 
mero de caracteres, e estes serão 
"podados" automaticamente se ultra¬ 
passaram esse limite de comprimen¬ 
to. 


Agora, podemos verificar gual foi 
a opção dada pelo usuário e desviar o 
programa de acordo com o resultado: * 

250 IF OPCAO = 1 THEN GOTO 
300 

260 IF OPCAO = 2 THEN GOTO 
400 

270 IF OPCAO = 3 THEN GOTO 
500 

280 IF OPCAO = 4 THEN STOP 


Agora, a partir da linha 300, colo¬ 
camos o setor de entrada de dados. 
Vamos definir a variável NUM para 
contar o número de endereços arma¬ 
zenados na caderneta. Inicialmente, 
é claro, ele será zero. A cada entrada 
na caderneta de uma nova pessoa, 
esse número será incrementado por 
mais um: 


300 LET NUM = NUM + 1 
310 IF NUM > 25 THEN GOTO 900 
320 CLS 

330 PRINT "ENDEREÇO NO.";NUM 
335 PRINT " =============== " 

340 PRINT "NOME:" 

345INPUT NOMES (NUM) 

350 PRINT "ENDEREÇO:" 

355 INPUT ENDEREÇOS (NUM) 

360 PRINT "TELEFONE:" 

365 INPUT TELEFONES (NUM) 

370 GOTO 40 
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A linha 310 tem por objetivo impe¬ 
dir a entrada de mais de 25 nomes, 
pois assim “estouraria" a capacidade 
dimensionada para os conjuntos. 


A seguir programamos o segmento 
de modificação de dados. Inicial¬ 
mente mostramos no alto da tela co¬ 
mo estão os dados da pessoa solicita¬ 
da, e depois pedimos os dados novos: 


400 CLS 

410PRINT “ENTRE O NUMERO DO 
REGISTRO A SER 
MODIFICADO:" 

415INPUT X 

420IF X < 1 THEN GOTO 415 
425IF X > 25 THEN GOTO 415 
430PRINT 

435 PRINT “ENDEREÇO NO.";X 
440 PRINT “ =============== " 

445 PRINT “NOME:";NOME$(X) 

450 PRINT “ENDEREÇO:"; 

ENDERECO$(X) 

455 PRINT “TELEFONE:"; 

TELEFONE$(X) 

460 PRINT “NOVO NOME:" 

465 INPUT NOME$(X) 

470PRINT “NOVO ENDEREÇO:" 
475 INPUT ENDERECO$(X) 

480PRINT “NOVO TELEFONE:" 

485 INPUT TELEFONES(X) 

490 GOTO 40 


Finalmente, podemos programar o 
segmento de procura. Nesse caso, o 
usuário deve fornecer o nome da pes¬ 
soa desejada (exatamente como está 
gravado no conjunto NOME$), e o 
programa procurará: 

500 CLS 

510 PRINT “DIGITE O NOME DA 
PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 
550 IF X$ < > NOME$(I) THEN 
GOTO 580 

560 PRINT “ENDEREÇO:"; 

ENDERECOS(I) 

565 PRINT “TELEFONE:"; 

TELEFONE$(I) 

570 PAUSE 600 
575 GOTO 40 
580NEXTI 

590 PRINT “NAO CONHECO ESTE 
NOME" 

595 GOTO 510 

Se todos os nomes forem testados 
(linha 550) e não for achado o pedi¬ 
do, o programa avisa ao usuário, 
após terminar a alça da linha 580. 

Temos agora o nosso programa 
completo, com os comentários nos lu¬ 
gares apropriados: 


10 REM****************************** 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LÓGICA SINCLAIR 
25 REM * PROGRAMA R. SABBATINI * 

30 REM****************************** 

32 REM 

34 LETNUM = 0 

37 DlM NOME$(50,25) 

38 DIM ENDERECO$(50,25) 

39 DIM TELEFONE$(50,10) 

40 CLS 

50 PRINT" AGENDATK" 

60 PRINT" CADERNETA DE ENDEREÇOS" 

70 PRINT 

80 PRINT “ COMANDOS:" 

90 PRINT"==========================" 

100 PRINT “1 INCLUIR UM NOME" 

120 PRINT “2 MODIFICAR DADOS" 

130 PRINT “3 INFORMAR DADOS" 

150 PRINT “4 FIM" 

160 PRINT“========================== 

170 PRINT 


172 REM 

174 REM ***** SOLICITAR E TESTAR OPCAO * * 
176 REM 

180 PRINT “DIGITE UM NUMERO:" 

190 INPUT OPCAO 
200 IF OPCAO <1 THEN GOTO 190 
210 IF OPCAO >4 THEN GOTO 190 


212 REM 

214 REM * * * * * DIMENSIONAR CONJUNTOS * * * * 
216 REM 


242 REM 

244 REM ***** DESVIAR PARA OPCAO * * * * * 
246 REM 

250 IF OPCAO = 1 THEN GOTO 300 
270 IF OPCAO = 2 THEN GOTO 400 
280 IF OPCAO = 3 THEN GOTO 500 
290 IF OPCAO = 4 THEN STOP 


292 REM 

294 REM ***** ADICIONAR NOMES ***** 

296 REM 

300 LET NUM = NUM + 1 
310 IF NUM > 25 THEN GOTO 900 
320 CLS 

330 PRINT “ENDEREÇO NO.";NUM 
335 PRINT " =============== " 

340 PRINT “NOME:" 

345 INPUT NOME$(NUM) 

350 PRINT “ENDEREÇO:" 

355 INPUT ENDERECOS(NUM) 

360 PRINT “TELEFONE:" 

365 INPUT TELEFONES(NUM) 

370 GOTO 40 
380 REM 

382 REM ***** MODIFICAR DADOS ***** 

384 REM 
400 CLS 

410 PRINT “ENTRE O NUMERO DO REGISTRO 
A SER MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IFX>25THEN GOTO 415 
430 PRINT 

435 PRINT “ENDEREÇO NO.";X 
440 PRINT" =============== " 

445 PRINT “NOME:";NOME$(X) 











450 PRINT "ENDEREÇO:"; ENDEREÇOS® 
455 PRINT "TELEFONE:"; TELEFONES® 
460 PRINT "NOVO NOME:" 

465 INPUT NOME$(X) 

470 PRINT "NOVO ENDEREÇO:" • 

475 INPUT ENDERECOS(X) 

480 PRINT "NOVO TELEFONE:" 

485 INPUT TELEFONES® 

490 GOTO 40 
492 REM 

494 REM ***** PROCURA DADOS***** 
496 REM 
500 CLS 

510 PRINT "DIGITE O NOME DA PESSOA:"; 
520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 

550 IFX$< >NOME$(I) THEN GOTO 580 

555 F0RJ = 2T03 

560 PRINT "ENDEREÇO:"; ENDERECOS(I) 
565 PRINT "TELEFONE:"; TELEFONES(I) 

570 PAUSE 600 
575 GOTO 40 
580 NEXTI 

590 PRINT "NAO CONHECO ESTE NOME" 
595 GOTO 510 




Digite este programa no computa¬ 
dor e teste-o com vários dados. 






atrizes 

alfanuméricas 


t 


Da mesma forma como podemos ter 
conjuntos numéricos bidimensionais 
em BASIC, também é possível arma¬ 
zenar dados literais em conjuntos 
desse tipo. 


Essa possibilidade torna-se bastan¬ 
te útil quando desejamos programar 
listas que têm várias informações re¬ 
lacionadas, como no exemplo da se¬ 
ção anterior (caderneta de endere¬ 
ços). 


Como você verá, a programação 
se torna mais fácil, compacta e gené¬ 
rica se usarmos uma única matriz de 
dados para representar os diferentes 
campos de informação do nosso ca¬ 
dastro. 


Como você se lembra, a caderneta 
tinha os seguintes conjuntos para ar¬ 
mazenamento de dados literais: 


NOME$ -lista dos nomes das 

pessoas 

ENDEREÇOS -lista dos endereços 

correspondentes 


Nesse novo esquema, teríamos 
uma matriz (chamada DADOSS, por 
exemplo, com 25 linhas, ou seja, uma 
para cada registro e três colunas, 
uma para cada campo). 


TELEFONES 


-lista 'dos telefones 
correspondentes 


Assim, por exemplo, os dados so¬ 
bre as pessoas seriam armazenados 
nos elementos da matriz: 
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Organizando os dados dessa for¬ 
ma, será ainda mais fácil programar 
as diversas funções de cadastramento 
de informações da nossa caderneta 
de endereços. 

Na programação, basta gue 
dimensionemos a matriz: 

220 DIM DADOS$(50,3,25) 

Observe gue dimensionamos a ca¬ 
derneta para um máximo de 50 pes¬ 
soas (registros), com três campos ca¬ 
da, de 25 registros. O terceiro núme¬ 
ro da declaração DIM serve para es¬ 
pecificar o comprimento de cada da¬ 
do literal nesta matriz, gue, nesse ca¬ 
so, deve ser fixo para todos os cam¬ 
pos. 

Portanto, a guantidade de memória 
a ser ocupada por esses conjuntos se¬ 
rá de: 

50 x 25 + 50 x 25 + 50 x 25 = 

3 750 caracteres 

Para armazenar um número maior 
ou menor de endereços, basta alterar 
os valores nos comandos DIM. 

Podemos, em seguida, definir os 
nomes dos campos, utilizando outro 
conjunto, chamado CAMPOS$. 

36 DIM CAMPOS$(3) 

37 LET CAMPOS$( 1) = "NOME" 

38 LET CAMPOS$(2) = 
"ENDEREÇO" 

39 LET CAMPOS$(3) = 

"TELEFONE" 

Seguindo a programação do exem¬ 
plo anterior da caderneta, a partir da 
linha 300, colocamos o setor de entra¬ 
da de dados. Vamos definir a variável 
I para contar o número de campos em 
cada registro, e gue será incrementa¬ 
da por uma alça FOR...NEXT: 

300 LET NUM = NUM + 1 

310 IF NUM > 25 THEN GOTO 900 

320 CLS 

330 PRINT "ENDEREÇO NO.";NUM 
335 PRINT ” =============== " 

340 FOR J = 1 TO 3 

350 PRINT CAMPOS$(J);":"; 

355 INPUT DADOS$(NUM,J) 

365 NEXT J 
370 GOTO 40 

Compare com o programa ante¬ 
rior, para verificar como este ficou 
muito mais compacto. 

A seguir, programamos o segmen¬ 
to de modificação de dados. Inicial¬ 


mente mostramos no alto da tela co¬ 
mo estão os dados da pessoa solicita¬ 
da, e depois pedimos os dados novos. 
Aqui também usamos alças FOR... 
NEXT: 

400 CLS 

410 PRINT "ENTRE O NUMERO DO 
REGISTRO A SER 
MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X > NUM THEN GOTO 415 
430 PRINT 

435 PRINT "ENDEREÇO NO.";X 
440 PRINT " =============== " 

445 FOR J = 1 TO 3 

450 PRINT CAMPOS$(J);":"; 

DADOS$(X,J) 

455 NEXT J 

460 PRINT 

465 FOR J = 1 TO 3 

470 PRINT "NOVO ";CAMPOS$ 

(J 

475 INPUT DADOS$(X,J) 

480 NEXT J 


490 GOTO 40 

Finalmente, podemos programar o 
segmento de procura. 

500 CLS 

510 PRINT "DIGITE O NOME DA 
PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 
550 IF X$ < > NOME$(I) THEN 
GOTO 580 
555 FOR J = 2 TO 3 
560 PRINT CAMPOS$(I,J) 

565 NEXT J 
570 PAUSE 600 
575 GOTO 40 
580 NEXTI 

590 PRINT "NAO CONHECO ESTE 
NOME" 

595 GOTO 510 

Temos agora o nosso programa 
completo, com os comentários nos lu¬ 
gares apropriados: 


10 REM ****************************** 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LÓGICA SINCLAIR 
25 REM * PROGRAMA R. SABBATINI * 

30 REM ****************************** 

32 REM 

34 LET NUM = 0 

35 DIM DADOS$(50,3,25) 

36 DIM CAMPOS$(3) 

37 LET CAMPOS$( 1) = "NOME" 

38 LET CAMPOS$(2) = “ENDEREÇO" 

39 LET CAMPOS$(3) = "TELEFONE" 

40 CLS 

50 PRINT” AGENDATK" 

60 PRINT" CADERNETA DE ENDEREÇOS" 

70 PRINT 

80 PRINT" COMANDOS:" 

90 PRINT"==========================" 

100 PRINT " 1 INCLUIR UM NOME" 

120 PRINT "2 MODIFICAR DADOS" 

130 PRINT "3 INFORMAR DADOS" 

150 PRINT "4 FIM" 

160 PRINT"=========================== 

170 PRINT 
172 REM 

174 REM * * * * SOLICITAR E TESTAR OPCAO * * * * 
176 REM 

180 PRINT "DIGITE UM NUMERO:" 

190 INPUT OPCAO 
200 IF OPCAO < 1 THEN GOTO 190 
210 IF OPCAO > 4 THEN GOTO 190 
212 REM 

214 REM * * * * DIMENSIONAR CONJUNTOS * * * * 
216 REM 


242 REM 

244 REM * * ? * DESVIAR PARA OPCAO * * * * 
246 REM 

250 IF OPCAO = 1 THEN GOTO 300 
270 IF OPCAO = 2 THEN GOTO 400 
280 IF OPCAO = 3 THEN GOTO 500 
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290 IF OPCAO = 4 THEN STOP 
292 REM 

294 REM * * * * ADICIONAR NOMES * * * * 

296 REM 

300 LET NUM = NUM + 1 
310 IF NUM > 25 THEN GOTO 900 
320 CLS 

330 PRINT "ENDEREÇO NO.NUM 
335 PRINT'' =============== " 

340 FOR J = 1 TO 3 

350 PRINTCAMPOSSU);":"; 

355 INPUT DADOS$(NUM,J) 

360 PRINT "TELEFONE:" 

365 NEXT J 
370 GOTO 40 
380 REM 

382 REM * * * * MODIFICAR DADOS * * * * 

384 REM 
400 CLS 

410 PRINT "ENTRE O NUMERO DO REGISTRO 
A SER MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IFX> NUM THEN GOTO 415 
430 PRINT 

435 PRINT "ENDEREÇO NO.";X 
440 PRINT " =============== " 

445 FOR J=1T0 3 

450 PRINT CAMPOS$(J);DADOSS(XJ) 

455 NEXT J 

460 PRINT 

465 FOR J = 1 TO 3 

470 PRINT "NOVO CAMPOSS (J);":"; 

475 INPUT DADOSS(XJ) 

480 NEXT J 
490 GOTO 40 
492 REM 

494 REM * * * * PROCURA DADOS * * * * 

496 REM 
500 CLS 

510 PRINT "DIGITE O NOME DA PESSOA:"; 
520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 

550 IF X$ < >NOME$(I)THEN GOTO 580 

555 FOR J = 2 TO 3 

560 PRINT CAMPOSSU J) 

565 NEXT J 
570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE NOME" 
595 GOTO 510 


Digite este programa no computa¬ 
dor e teste-o com vários dados. 


O mais interessante do programa é 
que ele é bastante amplo, pois se qui¬ 
séssemos adicionar outros campos de 


informação (por exemplo, cidade, 
CEP, data de aniversário etc.), basta¬ 
ria modificar o dimensionamento da 
linha 220, adicionar os nomes no con¬ 
junto CAMPOSS e, em seguida, mo¬ 
dificar o valor final das alças FOR... 
NEXT, nas linhas 340, 445, 465 e 555. 
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10.1. Defina: 

conjunto numérico:.. 

conjunto alfanumérico:.. 

vetor:. 

matriz:. 

índice:. 

10.2. Qual é a função da declaração DIM ? 


10.3. Escreva um programa para realizar a seguinte tarefa: um clube de afi¬ 
cionados de microcomputadores deseja fazer uma lista de todos os seus sócios, 
na qual conste a idade de cada um e a marca do microcomputador que possui. 
O programa, depois de entrados os dados, informará: 

— o número de sócios que têm microcomputadores marca TK 85; 

— o número de sócios que têm microcomputadores marca Apple; 

— o número de sócios que têm outros tipos de microcomputador; 

— a idade média dos sócios do clube; 

— o nome do sócio mais novo do clube. 

Utilize conjuntos unidimensionais chamados NOME$, IDADE e COMPU¬ 
TADORES para registrar os dados acima. 


10.4. Seja a matriz abaixo: 
DIM DADOS(2,3) 


fl[ 

1 

2 


0 12 3 


! 

_í_JL_ 



1 

1 



1 
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Preencha as caseias da matriz com os dados gerados sucessivamente pelos 
programas abaixo: 

a. 10 LET 1 = 0 
20LET J = 2 

30 FOR M = I TO J 
40 LET DADOS(M,M) = 1 
50 NEXT M 

60 LET DADOS(2,3) = 1 

b. 70 FOR 1 = 0 TO 2 
80 FOR J = 0 TO 2 

90IF 1 = J THEN GOTO 110 
100 LET DADOS(U) = 0 
110 NEXT J 
120 NEXT I 

c. 130 LET SOMA = 0 
140 FOR COL = 0 TO 3 

150 LET SOMA = SOMA + DADOS(0,COL) 

160 NEXT COL 
170 PRINT SOMA 

Que valor será mostrado na tela quando o computador executar a linha 170 ? 


10.5. Escreva por extenso a capacidade, em número de linhas, de colunas e 
de caracteres, dos seguintes conjuntos literais: 

a. DIM UVROS$(100,50) 

b. DIMX$(12,25,5) 

c. DIM ARR$( 1,100) 
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■ | ESENHANDO 
I I COM O 

■ ■ COMPUTADOR 


Você já viu, no capítulo 5 (páginas 
23 a 25), que existem alguns caracte¬ 
res gráficos que podem ser usados 
dentro de comandos PRINT para fa¬ 
zer desenhos na tela. 


Assim, por exemplo, podemos de¬ 
senhar um belo padrão de blocos 
gráficos na tela utilizando o seguinte 
programa: 

10LET P$ = "BDWB" 

20 PRINT P$; 

30 GOTO 20 


Observe que a linha de caracteres 
gráficos armazenados em P$ é forma¬ 
da pelos seguintes caracteres gráfi¬ 
cos: 



Você já aprendeu como são digita¬ 
dos estes caracteres gráficos no pro¬ 
grama, utilizando a tecla GRA¬ 
PHICS. 


Quando você executar este pro- 
graminha simples, com o comando 
RUN, aparecerá um padrão gráfico 
repetido, que encherá toda a tela, de 
cima para baixo. 

Para fazer experiências com dife¬ 
rentes linhas de conjuntos gráficos, 
modifique o programa para aceitar os 
caracteres introduzidos pelo coman¬ 
do INPUT, assim: 

10INPUT P$ 

20 PRINT P$; 

30 GOTO 20 


Quando o programa é executado 
pela primeira vez, aparece na tela o 
sinal de prontidão, que avisa ao 
usuário que ele deve digitar uma li¬ 
nha de literais (caracteres): 


— 


"E" 

_J 


Nesse ponto, você deve pressionar 
as teclas SHIFT e 9, simultaneamen¬ 
te, para entrar no modo gráfico, e em 
seguida digitar de cinco a nove ca¬ 
racteres gráficos quaisquer. 


Para dar seqüência ao programa, 
saia do modo gráfico, pressionando 
novamente as teclas SHIFT e 9, e de¬ 
pois a tecla NEW LINE. O mesmo 
efeito pode ser conseguido se você 
pressionar duas vezes a tecla NEW 
LINE. 


Usando a sua imaginação, você 
poderá "inventar" muitos gráficos di¬ 
ferentes, fazendo uso de várias ins¬ 
truções PRINT. 


Por exemplo, vamos fazer um pro¬ 
grama para desenhar a cara do ET (o 
simpático personagem extraterrestre 
do filme do mesmo nome): 

10 PRINT 
20 PRINT" 

30 PRINT " 

40 PRINT " 

50 PRINT" j" 

60 PRINT" 


Para fazermos o ET "espichar" o 
pescoço, podemos colocar os seguin¬ 
tes comandos, dentro de uma alça 
FOR: 

70 FOR 1= 1 TO 10 
80 PRINT 
90 NEXTI 


Veja o efeito interessante causado 
por este programa. 




1. Faça programas para realizar os 
seguintes desenhos na tela, usando 
uma seqüência de comandos PRINT 
gráficos: 

a. o mapa do Brasil, indicando por 
uma cruz a cidade em que você 
mora; 

b. a bandeira do Brasil; 

c. uma espaçonave flutuando acima 
de uma paisagem lunar; 

d. uma locomotiva com dois vagões; 

e. os arranha-céus de uma cidade 
(paisagem noturna). 

2. Modifique o programa de treina¬ 
mento de tabuada (páginas 71 a 72), . 
para mostrar a figura de um palhaci- 
nho rindo, se a criança acertar o pro¬ 
blema, e chorando, se a criança er¬ 
rar. 


3. Invente outros desenhos e faça 
programas para eles. 



utros truques 
gráficos 


Uma das coisas mais fascinantes 
que podemos fazer com um computa¬ 
dor pessoal é um videogame com de¬ 
senhos que se movem (por exemplo, 
um avião que atravessa a tela de um 
lado para o outro). Esse tipo de técni¬ 
ca de programação é chamado de 
animaçõo gráfica, pois ela corres¬ 
ponde à maneira como são produzi¬ 
dos em filmes os desenhos animados. 

Para aprender a realizar uma ani¬ 
mação gráfica no computador, pri¬ 
meiro temos que conhecer mais algu¬ 
mas características de programação 
da tela de vídeo. 

A tela de vídeo de computadores 
do tipo TK 82, TK 83, TK 85 etc. pode 
ser comparada a uma folha de papel 
quadriculado, onde cada quadradi¬ 
nho corresponderia a uma posição 
determinada na tela: 
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Cada posição na tela corresponde 
a um caractere. 

Quando a tela é apagada por um 
comando CLS, ou logo após termos 
digitado o comando RUN, todas essas 
posições estarão em branco. 

Ao encontrar um comando PRINT, 
as posições na tela serão ocupadas 


pelos caracteres enviados por esse 
comando. 


Por exemplo, o programa: 

10 CLS 
20 PRINT 
30 PRINT "ALO" 

40 PRINT TAB (5); "COMO VAI?" 
50 STOP 


vai escrever nas seguintes posições da tela: 



Observe que cada comando PRINT 
faz o processo de escrita deslocar-se 
para a linha seguinte. A função TAB 
serve, no exemplo, para avançar dez 
posições, na segunda linha de im¬ 
pressão. 

Podemos comparar o esquema de 
posições na tela a uma matriz ou ta¬ 
bela bidimensional, que você já 
aprendeu no capítulo anterior. 


As linhas da tabela correspondem 
às linhas sucessivas na tela. Elas são 
numeradas de 0 a 21, de cima para 
baixo, começando pela linha supe¬ 
rior da tela. 

As colunas da tabela correspon¬ 
dem às colunas de impressão em uma 
determinada linha. Elas são numera¬ 
das de 0 a 31, da esquerda para a di¬ 
reita. 
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Dessa forma, o programa não pre¬ 
cisa ter várias linhas PRINT, coloca¬ 
das em uma certa ordem. 

Você vai entender melhor esse 
processo, ao estudar o programa 
abaixo. 

O seu objetivo é escrever os nomes 
dos quatro pontos cardeais ("rosa dos 
ventos" ou bússola), nas quatro bor¬ 
das da tela, assim: 


Na realidade, a tela de vídeo do seu 
computador tem 23 linhas. Mas as li¬ 
nhas 22 e 23 normalmente não podem 
ser usadas por um comando PRINT. 
Elas estão reservadas pelo interpreta¬ 
dor BASIC para as seguintes fun-' 
ções: 

linha 22: linha de entrada de dados 
(onde aparece o cursor 
"[t]"Cada vez que um co¬ 
mando INPUT é encontra¬ 
do no programa; 

linha 23: é usada para mostrar men¬ 
sagens de erro (por exem¬ 
plo, 6/160). 

Da mesma forma que em uma ma¬ 
triz, podemos referenciar cada posi¬ 
ção da tela de vídeo, por meio dos 
seus índices, ou seja: 

posição da linha 

posição da coluna 

O comando que faz esta referência 
é chamado de AT, e é sempre usado 
conjuntamente com o comando 
PRINT. 

Por exemplo: 

PRINT AT 5,10; "ALO" — escreverá 
a palavra ALO na linha n? 5, 
contando de cima para baixo, e co¬ 
meçando na coluna 10 desta linha, 
contando da esquerda para a direi¬ 
ta; 

PRINT AT 20,0; "H" - colocará 
na linha 20, e na coluna 0, o carac¬ 
tere gráfico H. 

AT, em inglês, significa EM. 


Portanto, PRINT AT 2,5 tem o se¬ 
guinte significado: 

ESCREVA EM 2,5 

O primeiro valor que vem depois 
da palavra AT é o número da linha. 
O segundo valor (que é separado do 
primeiro por uma vírgula) é o núme¬ 
ro da coluna. 

Esses números não podem ser me¬ 
nores do que zero nem maiores do 
que o número máximo de linhas ou 
colunas na tela, conforme o caso. 

Por exemplo, 

PRINT AT -2,20 
PRINT AT 2,56 

estão errados, pois, no primeiro 
exemplo, -2 é um número de linha 
que não existe e, no segundo, 56 é 
um número de coluna que também 
não existe. 

Portanto, o comando PRINT AT é 
muito útil, pois permite que escreva¬ 
mos qualquer coisa (caracteres nor¬ 
mais ou gráficos), em qualquer ponto 
da tela, como um desenho em uma 
folha de papel. 

Por exemplo, o programa: 

10 PRINT AT 11,14;"MEIO" 

escreverá no meio da tela, aproxima¬ 
damente, a palavra MEIO: 



A primeira coisa que você deve fa¬ 
zer é calcular as posições de linha e 
coluna de cada palavra. 

Uma forma de fazer este cálculo é 
escrever as palavras em um papel 
quadriculado comum, marcado com 
os limites da tela.' 

No exemplo acima, teremos: 
palavra n? de linha n? de coluna 


NORTE 0 13 

OESTE 11 0 

LESTE 11 27 

SUL 21 • 14 


Escolhemos a coluna 13 para a pa¬ 
lavra NORTE porque a coluna do 
meio é de número 15, e a palavra tem 
5 letras. Assim, ela ficará aproxima¬ 
damente centralizada na linha n? 0. 
Da mesma forma, escolhemos a colu¬ 
na 14 para a palavra SUL. 

As palavras OESTE e LESTE serão 
colocadas na linha do meio, Escolhe¬ 
mos 27 para o n? de coluna da pala¬ 
vra LESTE porque assim ela ocupará 
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até a coluna n? 31, ficando encostada 
na borda direita da tela. 

Agora que o trabalho de cálculo 
está feito, escrever o programa é ele¬ 
mentar: 

10CLS 

20 PRINT AT 0,13; "NORTE" 
30PRINT AT 11,0; "OESTE" 

40 PRINT AT 11,27; "LESTE" 

50 PRINT AT 21,14;"SUL/ / 


Note que não faria diferença, para 
o resultado final, se tivéssemos escri¬ 
to o programa assim: 

10CLS 

20 PRINT AT 0,13; "NORTE" 

30 PRINT AT 11,27;"LESTE" 

40 PRINT AT 11,0; "OESTE" 

50 PRINT AT 21,14;"SUL" 

A única coisa que iria mudar seria 
a ordem em que o computador escre¬ 
veria as palavras. 

O comando PRINT AT tem outra apli¬ 
cação muito interessante, para dotar 
seus programas de um aspecto mais 
"profissional". 

Ao solicitarmos alguma entrada ao 
operador de um programa, seria 
ideal que a mensagem aparecesse lo¬ 
go acima da linha de digitação (linha 
n? 22): 



Depois de digitar o nome, quere¬ 
mos outra mensagem assim: 



Para fazer isso, nada mais fácil: 

10 PRINT AT 21,0; "QUAL E O SEU 
NOME ?" 

20INPUT NOMES 


30 PRINT AT 21,0; "QUAL E A SUA 
IDADE ?" 

40 INPUT IDADE 


Note que a segunda mensagem (li¬ 
nha 30) é mais longa que a primeira 
(linha 10). Por isso, ao ser colocada a 
segunda mensagem na tela, ela enco¬ 
brirá a mensagem anterior, lá coloca¬ 
da. 


Entretanto, se ocorresse o contrá¬ 
rio, isto é, se a segunda mensagem 
fosse mais curta que a primeira, as 
duas se "misturariam" (um pedaço da 
primeira continuaria na tela). Por 
exemplo, o programa 


10 PRINT AT 21,0; "QUAL E O SEU 
NOME ?" 

20 INPUT NOMES 
30 PRINT AT 21,0;"E A SUA 
IDADE ?" 

40 INPUT IDADE 

originaria a seguinte mensagem, 
quando executada a linha 30: 


E A SUA IDADENOME ? 

L® __ 


Para evitar isso, temos antes que 
"limpar" a linha assim: 

25 PRINT AT 21,0;" 

o que é mais rápido do que dar um 
comando CLS (que iria limpar toda a 
tela, inclusive a linha 21). 


Ou, então, colocar alguns espaços 
em branco após a segunda mensa¬ 
gem, de modo a superpô-los ao espa¬ 
ço ocupado pelo restante da mensa¬ 
gem anterior: 


10 PRINT AT 21 ,0;"QUAL E O SEU 
NOME ?" 

20 INPUT NOMES 
30 PRINT AT 21,0;"E A SUA 
IDADE ? " 

40 INPUT IDADE 



m desenho 
animado 


Vamos usar agora o comando 
PRINT AT para fazer uma animação 
gráfica. 


Movimentaremos um aviãozinho 
na tela, fazendo-o voar da esquerda 
para a direita. 


A imagem do avião será obtida por 
meio de uma linha assim: 


PRINT " 



// 


Vamos escolher uma linha da tela, 
por onde voará o avião. Por exemplo, 
a linha 10. 


Para colocar o avião em posições 
sucessivas na tela, vamos utilizar uma 
alça FOR...NEXT, assim: 

10FORI = 0TO 26 
20 PRINT AT 10,J;" 

30 PRINT AT 10,J;" 

40 NEXTI 

A linha 20 serve para desenhar a 
imagem do avião, começando na li¬ 
nha 10, coluna J. 

Assim, como J fica igual a 0, 1,2, 
3 .... etc., a cada repetição da alça 
FOR, que vai de 10 a 40, a imagem 
do avião será escrita nas posições 0, 
1, 2, 3 ... etc. da linha 10, dando a 
impressão de locomoção. 

A linha 30 serve para apagar o 
avião da posição J, antes de colocá-lo 
em nova posição. Por isso, são escri¬ 
tos cinco caracteres em branco, so¬ 
bre a mesma posição anterior. Expe¬ 
rimente não colocar esta linha e veja 
o que acontece. 

O limite máximo da alça I (ou seja, 
26) foi definido assim, pois o avião 
tem cinco caracteres. 

Ao executar o programa, você po¬ 
de observar que a imagem do avião¬ 
zinho dá a impressão de se movimen¬ 
tar com rapidez de um lado para ou¬ 
tro da tela. 

O programa, do jeito que está, já 
dá o máximo de velocidade aparente 
ao avião, se quisermos deslocá-lo 
uma posição de cada vez. 
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Para aumentar a velocidade de 
animação na tela, portanto, basta in¬ 
crementarmos a posição do avião de 
2 em 2 ou de 3 em 3, assim: 


10 FOR J = 0 TO 26 STEP 2 
20PRINT AT 10J;" 
30PRINT AT 10, J ; " 

40 NEXT J 


Não podemos usar um número 
muito grande no STEP, entretanto, 
pois o avião "pulará" muito na tela, e 
perderemos o efeito contínuo de ani¬ 
mação. 


Para diminuir a velocidade do 
avião a operação é mais fácil: basta 
colocarmos uma alça FOR de retardo 
de tempo, entre as linhas 20 e 30 e as 
linhas 30 e 40: 


10FOR J = 0TO26 
20PRINT AT 10,J;" 
25 FOR N = 1 TO 5 
27 NEXT N 
30PRINT AT 10, J;" 
35 FOR N = 1 TO 5 
37 NEXT N 
40 NEXT J 


n 


n 


Se quisermos fazer um programa 
mais abrangente, que nos permita 
entrar dados de velocidade e linha de 
deslocamento do avião, teremos: 


1 CLS 

2 PRINT "O VOO DO AVIAO" 

4 PRINT AT 21,0; “ALTURA 

(0 A 20):" 

6 INPUT ALT 

7 PRINT AT 21,0; "VELOCIDADE 
(0 A 20):" 

8 INPUT VEL 

9 CLS 

10 FOR J = 0 TO 26 
20 PRINT AT 21-ALTJ;" " 

25 FOR N = 1 TO 20 - VEL 
27 NEXT N 

30 PRINT AT 21-ALT,J;" 

35 FORN= 1 TO20-VEL 
37 NEXT N 
40 NEXT J 
50 GOTO 1 


Note que velocidade e altura são 
respectivamente o inverso de retardo 
e posição da linha na tela. Por isso, 
subtraímos os valores entrados de 
seus valores máximos, para poder¬ 
mos inverter! 


Mil 


IÇW 

TJI 


1. Faça um programa de animação grá¬ 
fica para fazer um foguetinho desenha¬ 
do na parte de baixo da tela subir em tra¬ 
jetória vertical até o topo da mesma. 

Dica: é semelhante ao programa do 
avião, apresentado anteriormente, só 
gue o deslocamento é ao longo de uma 
coluna da tela (o número da linha na de¬ 
claração AT é gue muda, diminuindo à 
medida gue o foguete sobe). 

2. O gue faz o seguinte programa na 
tela? 

10 RAND 

20 LET X=INT(RND*30) +1 


ais gráficos 


O sistema de localização de caracte¬ 
res na tela de vídeo, usando o comando 


30 LET Y=INT(RND*20) + 1 
40 PRINT AT Y,X;"*" 

50 GOTO 20 

Cologue o programa acima em seu 
computador e veja o resultado! 

3. Modifigue o programa acima para 
colocar um máximo de 100 asteriscos na 
tela. 

4. Faça um programa para desenhar 
uma torneira na parte superior da tela, 
e gue f igue pingando gotinhas de água 
continuamente (animação gráfica da 
gota caindo). 


PRINT AT, como você percebeu muito 
bem, corresponde a uma espécie de ma¬ 
pa ou gráfico com posições horizontais 
e verticais. 


Esse sistema de referência é chamado 
de sistema de coordenadas ortogonais, 
pois os dois "eixos" de referência (o ver¬ 
tical e o horizontal) são perpendicula¬ 
res, ou ortogonais entre si: 



vertical 

(linhas) 



horizontal 

(colunas) 


Um ponto gualguer no meio desta 
"grade" ou guadriculado é localizado 
através de suas coordenadas, ou seja, os 
números correspondentes à linha (coor¬ 
denada vertical) e a coluna (coordena¬ 
da horizontal) onde está. Para cada par 
de números desse tipo, temos apenas um 
ponto correspondente na tela. O contrá¬ 
rio também é verdadeiro: para cada 
ponto na tela, temos apenas um determi¬ 
nado par de coordenadas, e apenas um. 


O ponto na tela (um ponto nesse sis¬ 
tema de coordenadas no computador) 
recebe o nome de pixel. Este termo vem 
do inglês, e significa picture element 
(elemento gráfico). As coordenadas, 
por sua vez, recebem os nomes de orde¬ 
nada (na vertical) e abscissa (na ho¬ 
rizontal). 

Já se convencionou chamar de X a 
abscissa e de Y a ordenada de um ponto: 
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(colunas) 


Para quem já conhece o sistema de 
coordenadas ortogonais (também cha¬ 
mada de cartesianas, em homenagem 
ao seu inventor, o matemático e filósofo 
francês René Descartes), pode parecer 


Acontece que, por razões de facilida¬ 
de de programação do controle da tela 
gráfica, comoveremos, os idealizadores 
desse tipo de microcomputador preferi¬ 
ram um arranjo inverso, que às vezes nos 
atrapalha, mas não chega a prejudicar. 


estranho que o zero do eixo vertical (or¬ 
denadas) seja colocado na parte de ci¬ 
ma da tela. Normalmente, nos livros de 
matemática ou de geometria, isto apare¬ 
ce assim: 


No sistema que vimos até agora (co¬ 
mando PRINT AT), podemos colocar 
um caractere qualquer (gráfico ou não 
gráfico), em qualquer ponto da tela. 


Esse sistema nos permite colocar fa¬ 
cilmente um texto ou um desenho em 
qualquer ponto da tela. 


Entretanto, ele tem uma desvanta¬ 
gem: se quisermos fazer um gráfico mais 
detalhado, de modo a colocar na tela 
pontinhos menores, não dá. 

Examinando os caracteres gráficos 
existentes no seu computador da linha 
Sinclair, você verá que eles são forma¬ 
dos pela combinação de quatro subdi¬ 
visões de um quadradinho gráfico: 

0EH 

Assim, qualquer caractere gráfico 
(excetuando-se os que têm elementos de 
cor cinza) pode ser composto 
preenchendo-se quadradinhos meno¬ 
res, em qualquer combinação: 


1 

2 

3 

4 


Portanto, podemos concluir que exis¬ 
te um pixel menor do que o caractere, e 
que corresponde a um tamanho quatro 
vezes menor, em área, do que o pixel 
que podemos manipular usando o co¬ 
mando PRINT AT. 


A linguagem BASIC dos computado¬ 
res da linha Sinclair tem comandos pa¬ 
ra manipular diretamente estes pixels 
menores. Com eles fica muito mais fácil 
traçar desenhos mais detalhados. 


Esses comandos são: 

PLOT - para colocar um pontinho na 
tela 

UNPLOT - para apagar um pontinho 
da tela 


O sistema de coordenadas dos co¬ 
mandos PLOT e UNPLOT consiste em 
42 linhas, ou pontos no eixo vertical 
(ordenadas), e 64 colunas, ou pontos no 
eixo horizontal (abscissas): 
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ordenadas 



Note que, nesse novo sistema de coor¬ 
denadas, a posição do eixo vertical é 
mais "correta", ou seja, semelhante à 
convenção adotada pelo sistema 
cartesiano. 

E muito fácil usar os comandos PLOT 
e UNPLOT. Basta fornecer apenas dois 
valores separados por uma vírgula, os 
quais indicam a ordenada e a abscissa 
do ponto desejado na tela: 


PLOT 0,3 —> traça um ponto na 
abscissa = 0 e ordenada = 3 


UNPLOT 5,2 —> apaga um ponto na 
abscissa = 5 e ordenada=2 


Os argumentos (valores X e Y) forne¬ 
cidos aos comandos PLOT e UNPLOT 
podem ser de três tipos: 


1. constantes numéricas 

2. variáveis numéricas 




3. expressões matemáticas 



Exemplo: 

Exemplos: 

Exemplos: 



PLOT 3,2 

PLOT X,ABC 
PLOT II,X(2) 






PLOT A + 1 ,B*24 + C 
PLOT X/2, SQR(X) 


9 

E. claro que podemos misturar no 
mesmo PLOT qualquer um dos tipos 
acima: 


PLOT 2,BC*X 
PLOT 12-f C,K 
etc 



Apareceu um pixel bem no meio da 
tela de vídeo, ou seja, com as coordena - 
dasX=31 e Y=21. 


Agora experimente apagar este pon¬ 
to com o comando: 

UNPLOT 31,21 

Veja como o pontinho se apagou! 


Uma brincadeira interessante é repe¬ 
tir aqui aquele programa proposto nos 
exercícios da última lição, que serve pa¬ 
ra colocar pixels ao acaso na tela: 


10 RANDOM 
20 LET X=INT(RND*64) 
30LET Y=INT(RND*44) 
40 PLOT X,Y 
50 GOTO 20 


Note que o número aleatório sorteado 
para a coordenada X varia entre 0 e 63 ‘ 
(a função RND nunca atinge 1.0000),e 
entre 0 e 43 para a coordenada Y. O 
efeito final se assemelha à chuva mo¬ 
lhando uma calçada! 



azendo 

pontinhos 


Outro programa interessante serve 
para desenharmos qualquer coisa na te¬ 
la, fornecendo ao programa as coorde¬ 
nadas dos pontos que quisermos dese¬ 
nhar, um a um, na tela: 


Colocar e apagar pontos (pixels) na 
tela gráfica é bem fácil com a ajuda dos 
comandos PLOT e UNPLOT. 

Experimente digitar, em modo direto 
(isto é, sem número de linha), o seguin¬ 
te comando: 

PLOT 31,21 

Veja o que aconteceu na tela: 


10 REM DESENHOS NA TELA 
20 PRINT AT 21,0;"ENTRE VALOR 
DE X:" 

30 INPUT X 

40 PRINT AT 21,0;"ENTRE VALOR 
DE Y:" 

50 INPUT Y 
60 PLOT X,Y 
70 GOTO 20 
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70 INPUTY 
80 FOR X=XI TO XF 
90 PLOTX,Y 
100 NEXTX 
110 GOTO 20 

Para entender melhor o esquema de 
coordenadas gráficas com os comandos 


PLOT e UNPLOT, vamos fazer um pro¬ 
grama bem simples, que serve para tra¬ 
çar uma moldura ao redor da tela gráfi¬ 
ca (ou seja, quatro traços finos coloca¬ 
dos nos limites da tela gráfica). 

Os quatro cantos da tela gráfica têm 
as seguintes coordenadas: 



1. canto inferior esquerdo 

2. canto inferior direito 

3. canto superior esquerdo 

4. canto superior direito 


Y 

0 

0 

43 

43 




I® azendo retas 

ll 



Retas paralelas aos eixos vertical e ho¬ 
rizontal (ou seja, às bordas da tela) po¬ 
dem ser traçadas com grande facilida¬ 
de. Basta dar vários comandos PLOT 
com coordenadas próximas umas às ou¬ 
tras: se os pontinhos "grudarem" uns nos 
outros, darão a impressão visual de uma 
reta. 

Por exemplo, digite sucessivamente 
os comandos diretos: 

PLOT 31,21 
PLOT 32,21 
PLOT 33,21 

E veja o resultado final: 



Para não ficar repetindo muitas vezes 
os comandos PLOT, podemos usar os 
comandos FOR...NEXT para traçar uma 
reta: 

10 FORX=31 TO 33 

20 PLOT X,21 

30 NEXT X 

Veja que o resultado final deste pro¬ 
grama (após digitarmos o comando 
RUN) é idêntico ao mostrado aciína com 
os comandos PLOT sucessivos. Isso 
acontece porque a variável X assume os 
valores 31, 32 e 33, controlados pela al¬ 
ça FOR, e o valor 21 da vertical é manti¬ 
do constante. 

Veja este programa para traçar uma 
reta na horizontal, começando em um 
determinado ponto e indo até outro: 

10 REM RETAS HORIZONTAIS 

15 REM 

20 PRINT AT 21,0;"ENTRE VALOR 
INICIAL DE X 

30 INPUTXI 

40 PRINT AT 21,0;"ENTRE VALOR 
FINAL DE X 

50 INPUTXF 

60 PRINT AT 21,0;"EM QUE 
POSICAO HORIZONTAL:" 


Portanto, para traçar quatro linhas de 
um canto a outro, fazemos: 

10 REM MOLDURA PARA O TK 

20 FOR 1 = 0 TO 63 

30 PLOT 1,0 

40 PLOT 1,43 

50 NEXT I 

60 FOR J = 0 TO 43 

70 PLOT 0,1 

80 PLOT 63,1 

90 NEXTI 

A primeira alça FOR...NEXT, que vai 
das linhas 20 até 50, traça simultanea¬ 
mente as retas na parte de baixo (orde¬ 
nada 0), e de cima (ordenada 43), res¬ 
pectivamente. A reta aparece na tela 
porque a variável I assume os valores 0, 
1, 2, 3, 4... etc, até 63, "grudando" os 
pontinhos colocados na tela por cada 
instrução PLOT. 

A segunda alça FOR...NEXT, que vai 
das linhas 60 até 90, faz a mesma coisa 
com as duas linhas verticais, situadas 
nas abscissas 0 e 63, respectivamente. 

O uso da alça nos dá recursos bem 
poderosos para traçar retas de vários ti¬ 
pos. Por exemplo, para traçar uma reta 
pontilhada, assim: 


basta "acender" um ponto sim, um ponto 
não, na tela, com a ajuda da instrução 
STEP 

10 FOR 1 = 0 TO 63 STEP 2 
20 PLOT 1,21 
30 NEXT I 

Percebeu? 



1. Modifique o programa que traça re¬ 
tas na horizontal, dados os pontos de iní¬ 
cio e fim, de modo que seja possível tra¬ 
çar retas na vertical. 

2. Faça um programa para desenhar um 
retângulo qualquer na tela (apenas o 
seu contorno). O usuário deverá forne¬ 
cer as coordenadas X e Y de cada canto 
da figura. 

3. Faça um programa para desenhar um 
retângulo qualquer na tela. O usuário 
deverá fornecer os seguintes dados: 
coordenadas X e Y do canto inferior es¬ 
querdo do retângulo, tamanho do lado 
horizontal e tamanho do lado vertical. 

4. Como o programa acima poderia ser 
modificado para preencher completa¬ 
mente o interior do retângulo (ou seja, 
desenhar um retângulo sólido)? 

5. Faça um programa para traçar uma 
reta em diagonal, indo do canto inferior 
esquerdo ao canto superior direito da 
tela (atenção: este programa tem apenas 
três linhas!) 

6. Modifique o programa que desenha 
pontinhos ao acaso na tela, para pedir ao 
usuário os limites inferior, superior, di¬ 
reito e esquerdo de um retângulo na te¬ 
la, dentro do qual serão jogadas os pon¬ 
tinhos (ou seja, eles não ocuparão a tela 
inteira, como no exemplo dado no 
texto). 


106 





















nimaçõo gráfica 
com PLOT 


Podemos realizar animações gráficas 
com os comandos PLOT e UNPLOT, 
também. 

Veja este programa para simular uma 
bolinha caindo da parte de cima até a 
parte de baixò da tela: 

10 FOR Y=43 TO 0 STEP -1 
20 PLOT 31,Y 
30 FOR T=1 TO 10 
40 NEXTT 
50 UNPLOT3LY 
60 NEXT Y 

A alça que vai da linha 30 a 40 causa 
um retardo de tempo, para fazer o pon¬ 
tinho se deslocar para baixo mais deva¬ 


gar, permitindo ao usuário enxergar o 
ponto traçado antes de ele se apagar da 
tela. Se você modificar o valor 10 da li¬ 
nha 30, poderá alterar esta velocidade 
para mais ou para menos. 

Mas atenção: o uso do PLOT e UN- 
PLOT para animações gráficas só dá 
bons efeitos quando o desenho a ser tra¬ 
çado for bem pequeno (poucos pontos). 
Caso contrário, o desenho se fará muito 
lentamente, bem como a animação grá¬ 
fica (movimento) de suas partes. Para 
desenhos mais complexos é mais ade¬ 
quado usar o comando PRINT AT, con¬ 
juntamente com os caracteres gráficos 
disponíveis no teclado, como vimos na 
seção anterior. 



RESPOSTAS AOS EXERCÍCIOS ANTERIORES 


Exercício 2, pág. 80. Modifigue o pro¬ 
grama de cálculo dos pontos ganhos dos 
times, de modo que mostre na tela de re¬ 


sultados a diferença entre o número de 
pontos ganhos por cada time e a média 
geral. 


Solução: 


10 PRINT "CAMPEONATO BRASILEIRO DE FUTEBOL" 
20 PRINT " TABELA DE PONTOS GANHOS" 

25 PRINT " VERSÃO 3" 

30 PRINT 
40REM 


50REM = = = ENTRADA DE DADOS 
51REM 

52 PRINT "QUANTOS TIMES?" 

54INPUT NT 


70 PRINT "ENTRE O NUMERO DE PONTOS GANHOS" 
75 PRINT "PARA CADA TIME DA TABELA" 

80 PRINT 


85 FOR N=1 TONT 
90 PRINT "TIME NUMERO "• N-" ? *• 
100 INPUT T(N) ' ' 

110 PRINT T(N) 

120 NEXT N 
130REM 

140REM = = = CALCULO DA MEDIA 
150REM 

160 LET SOMA=0 
165CLS 


170FOR N=1 TONT 
180 LET SOMA= SOMA + T(N) 
190 NEXT N 
200 REM 


210 REM = = = MOSTRA RESULTADOS 
220 REM 


400 LET MEDIA = SOMA/NT 
410 PRINT 


420 PRINT "MEDIA DOS PONTOS GANHOS = "-MEDIA 
422 PRINT 


425 FOR N=1 TO NT 

426 PRINT "TIME NUMERO N-" = 

428 PRINT "DIFERENÇA DA MEDIA 

429 NEXT I 
430STOP 


T (N); "PONTOS GANHOS. 
= MEDIA-T(N); " PONTOS." 


/ 
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Exercício 2, pág. 88. Seja um conjunto 
DADO, com cinco linhas e quatro colu¬ 
nas. Escreva um programa com a alça 
FOR NEXT, para preencher com dados 
os elementos do conjunto DADO (por 
meio de um comando INPUT). 


Solução: 

10FORLIN=1 T05 
20 FOR COL=1 TO 4 
30PRINT "ENTRE VALOR DA LI¬ 
NHA LIN;" E COLUNA COL;" 
_ «. 

40 INPUT DADO (LIN, COL) 

50PRINT DADO (LIN, COL) 

60 NEXT COL 
70 NEXT LIN 


Exercício 3, pág. 88. Escreva um progra¬ 
ma para preencher com zeros todos os 
elementos do conjunto DADO. 


Solução: 

10POR LIN=1 TOS 
20 FOR COL= 1 TO 4 
30 LET DADO (LIN, COL) = 0 
40 NEXT COL 
50 NEXT LIN 


Exercício 5, pág. 88. Faça um programa 
para copiar uma das linhas da matriz 
DADO, para um vetor (conjunto unidi¬ 
mensional) chamado COPÍA. 


Solução: 

10PRINT "QUE LINHA (1A5) ?" 
20 INPUT LIN 
30 FOR COL=1 TO 4 
40 LET COPIA (COL) =DADO 
(LIN, COL) 

50 NEXT COL 


Exercício 6, pág. 88. Faça um programa 20 FOR 1=1 TO 10 

piara copiar uma das colunas da matriz 30 LET A(I,I)=1 

DADO, para um vetor chamado COPIA. 40 NEXT I 


Solução: 

10PRINT "QUE COLUNA (1 A 4) ?" 
20 INPUT COL 
30 FOR LIN=1 TO 5 
40 LET COPIA (LIN) = DADO 
(LIN, COL) 

50 NEXT LIN 


Exercício 7, pág. 88. Escreva um progra¬ 
ma para preencher com o valor 1 todos 
os elementos da diagonal principal de 
um conjunto A( 10, 10). 


Solução: 

10DIM A(10,10) 


Exercício 10, pág. 88. Modifique o pro¬ 
grama completo de cálculo de boletim 
de notas, de modo a realizar as seguin¬ 
tes funções adicionais: 

a. Calcular a média global da classe 
(todas as notas); 

b. Indicar, ao lado da média de cada 
aluno, se ela está acima ou abaixo da 
média global da classe. 

Solução: 

Vamos fazer também a modificação 
necessária para resolver outro exercício 
proposto: 

Exercício 2, pág. 87. Entrar e mostrar o 
nome de cada aluno. 



10REM = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

20 REM = BOLETIM DE NOTAS DA CLASSE 
30REM = BASIC PARA TK 85 
40 REM = R. SABBATINI VERSÃO 2 

50 REM = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

60 REM 

70REM **** INICLALIZACAO **** 

80 REM 

90 DIM NOTA (50 15) 

95 DIM NO$ (50 15) 

100 CLS 

110 PRINT "CALCULO DO BOLETIM DE NOTAS" 

130 REM 

140 REM **** ENTRADA DE PARÂMETROS **** 

150 REM 
160 PRINT 

170 PRINT "NUMERO DE ALUNOS NA CLASSE ?" 

180 INPUT NA 

190IF NA > 50THEN GOTO 170 
200PRINT NA 
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*** 




210PRINT "NUMERO DE MATÉRIAS 
220INPUT NM 

230IF NM > 15 THEN GOTO 210 
240PRINTNM 
250 REM 

260REM ““ ENTRADA DE DADOS 
270 REM 

280 PRINT "ENTRE AS NOTAS DOS ALUNOS:" 
290PRINT 
300 FOR I=1 TO NA 
310PRINT "ALUNO NO. ";I 
315 PRINT "NOME DO ALUNO: 

317INPUTNO$(I) 

320FOR J=1 TONM 

330 PRINT TAB (7); "NOTA DA MATÉRIA J;" ?"; 

340INPUT NOTA (U) 

350 IF NOTA (I, J) < 0 THEN GOTO 340 
360 IF NOTA (I, J) > 10 THEN GOTO 340 
370 PRINT NOTA (I, J) 

380NEXTJ 
390 REM 

400REM *“* MOSTRA NOTAS NA TELA 
410REM ““ E CALCULA MEDIAS *“ 

420 REM 

421 LET SOMA= 0 

422 FOR 1=1 TO NA 
424 FOR J=1 TONM 

426 LET SOMA=SOMA+NOTA (I, I) 

427 NEXTJ 

428 NEXT I 

429 LET MCLAS=SOMA/(I*J) 

430 CLS 

440FORI=1 TONA 
450PRINT "ALUNO ";I;" — NO$ (I);": 

460 LET SOMA= 0 

470 FOR J=1 TONM 

480PRINT TAB(10+5*J); NOTA (I, J); 

490 LET SOMA=SOMA+NOTA (IJ) 

500 NEXT J 

510 PRINT " MED SOMA/NM 

515 IF SOMA/NM > = MCLAS THEN PRINT " *ACIMA" 

517 IF SOMA/NM < MCLAS THEN PRINT " ‘ABAIXO" 

520 NEXT I 

530REM 

540REM ““ CALCULA MEDIA DAS MATÉRIAS 
550 REM 

560 FOR J=1 TONM 
570 LET SOMA= 0 








f 






















**** 



















580 FOR 1=1 TO NA 
590 LET SOMA=SOMA+NOTA (I, J) 

600 NEXT I 
610 PRINT 

620 LET MED=SOMA/NA 
630 PRINT "MEDIA NA MATÉRIA ";J;" = MED 






640 NEXT I 
650STOP 
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Exercício 1, pág. 92. Modifique o pro¬ 
grama de emissão de nota de despesas 
de modo que tenha as seguintes funções 
adicionais: 

a. Entrar a data de emissão da nota e o 
Solução: 


nome do cliente para mostrar na tela 
de emissão; 

b. Armazenar o valor total de cada no¬ 
ta, cumulativamente em uma variável 
RENDA, e mostrar este valor se o no¬ 
me do cliente for "FIM". 


10 CLS 

20PRINT "EMISSÃO DE NOTA DE DESPESAS" 

30PRINT "CASA DE FRIOS "AZEITONA DOURADA" LTDA" 

32 PRINT 

34 PRINT "DIGITE A DATA DE HOJE:" 

36INPUT DAT$ 

40 PRINT 
50 DIM M$ (5,20) 

55 DIM TT (5) 

60 LET M$(0)="AZEITONAS PRETAS" 

70 LET M$(l)="AZEITONAS VERDES" 

80 LET M$(2)="PRESUNTO GORDO" 

90 LET M$(3)="PRESUNTO MAGRO" 

100 LET M$(4)="MOZARELA" 

110 LET M$(5)="QUEIIO PRATO" 

115 LET RENDA =0 
120REM 

130REM ***** ENTRADA DOS DADOS DA COMPRA ***** 
140REM 

142 PRINT "DIGITE O NOME DO CLIENTE:" 

144 INPUT NO$ 

146IF NO$="FIM" THEN GOTO 900 
148 PRINT 

150 PRINT "DIGITE A QUANTIDADE COMPRADA E DEPOIS" 

160 PRINT "O PREÇO POR QUILOGRAMA PARA CADA MER" 

170 PRINT "CADORIA APRESENTADA NA TELA. DIGITE 0" 

180 PRINT "SE O CLIENTE NAO COMPROU A MERCADORIA" 

190 PRINT 

200 FOR 1 = 1 T05 

210 PRINT M$(I);" ? " 

220 INPUT Q(I) 

230 IF Q(I) = 0 THEN GOTO 250 
240 INPUT PR(I) 

250NEXTI 
260 REM 

270REM ***** IMPRESSÃO DA NOTA ***** 

280 REM 
290 CLS 

300 PRINT " NOTA DE DESPESAS" 

306 PRINT 

307 PRINT "CLIENTE: NO$;" DATA:";DAT$ 

310 PRINT 

320 PRINT "MERCADORIA"; TAB(17); "QUANTPRECO" 

325 LET TGT= 0 

330 FOR I = 1 TO 5 

340 IF Q(I)=0 THEN GOTO 360 

350 PRINT M$(I); TAB(17); Q(I); TAB(22); Q(I)*PR(I) 

355 LET TOr=TOT+Q(I)*PR(I) 

360 NEXTI 

365 PRINT "TOTAL"; TAB(22); TOT 

366 LET RENDA=RENDA +TOTAL 
370 PAUSE 600 

380 CLS 


390 GOTO 150 
800 REM 
810REM ***** 
820 REM 
900 CLS 


MOSTRAR RENDA FINAL 


* ★ * # * * * 


910 PRINT "RESULTADO CUMULATIVO = CR$ 
920STOP 


";RENDA 


Exercício 1, pág. 95. Modifique o pro¬ 
grama AGENDA para incluir as seguin¬ 
tes funções adicionais: 


1 - Exclusão de um nome da caderneta 
(dica: o programa solicita o número 
do registro a ser excluído e em segui¬ 


da coloca espaços em branco nos con- 
j untos correspondentes); 

2 - Listagem de todos os nomes colo¬ 
cados na caderneta (dica: cologue um 
registro em cada linha da tela, come¬ 
çando com o número do registro, de¬ 
pois o nome, o endereçoe o telefone). 


Solução (programa da pág. 94 completo): 

10REM **************♦*»***..*.*** 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LÓGICA SINCLAIR . * 

25 REM * PROGRAMA: R. SABBATINI * 

30 REM *************************** 

32 REM 

33 REM 

34 REM ***** DIMENSIONAR CONJUNTOS ***** 

35 REM 

36 DIM NOME$(5025) 

37 DIM ENDERECO$(5025) 

38 DIM TELEFONE$(5010) 

40 CLS 

50 PRINT " AGENDA TK" 

60 PRINT" CADERNETA DE ENDEREÇOS" 

70 PRINT 

80 PRINT" COMANDOS:" 

90 PRINT "= = = = = = = = = = = = = = = = = = = = = . 

100 PRINT " 1 INCLUIR UM NOME" 

120 PRINT "2 MODIFICAR DADOS" 

130 PRINT "3 INFORMAR DADOS" 

150 PRINT "4 FIM" 

160 PRINT "= = = = = = = = = = = = = - = ____ 

170 PRINT 
172 REM 

174 REM ***** SOLICITAR E TESTAR OPCAO ***** 
176 REM 

180 PRINT "DIGITE UM NUMERO-" 

190INPUT OPCAO 
200IF OPCAO < 1 THEN GOTO 190 
210IF OPCAO >6 THEN GOTO 190 
242 REM 

244 REM ***** DESVIAR PARA OPCAO ***** 

246 REM 

250 IF OPCAO=1 THEN GOTO 300 
270 IF OPCAO=2 THEN GOTO 400 
280 IF OPCAO=3 THEN GOTO 500 
284 IF OPCAO=4 THEN GOTO 600 
286 IF OPCAO=5 THEN GOTO 700 




290IF OPCAO=6 THEN STOP 
292 REM 

294 REM ***** ADICIONAR NOMES ***** 

'• 296 REM 

300 LET NUM=NUM +1 

310 IF NUM > 25 THEN GOTO 900 

320 CLS 

330PRINT "ENDEREÇO NO"; NUM 
335 PRINT "= = = = = = = = = = = = = = =" 

340PRINT "NOME:" 

345INPUT NOMES(NUM) 

350 PRINT "ENDEREÇO:" 

355 INPUT ENDERECOS(NUM) 

360 PRINT'TELEFONE:" 

365 INPUT TELEFONES(NUM) 

370 GOTO 40 
380 REM 

382 REM ***** MODIFICAR DADOS ***** 

384 REM 
400 CLS 

410 PRINT "ENTRE O NUMERO DO REGISTRO A SER MODIFICADO:" 


415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X > 25 THEN GOTO 415 
430 PRINT 

435 PRINT "ENDEREÇO NO.";X 

440 PRINT "===============" 

445 PRINT "NOME: ";NOME$(X) 

450 PRINT "ENDEREÇO: ";ENDERECO$(X) 

455 PRINT "TELEFONE: ";TELEFONE$(X) 

460 PRINT "NOVO NOME:" 

465 INPUT NOME$(X) 

470 PRINT "NOVO ENDEREÇO:" 

475 INPUT ENDERECO$(X) 

480 PRINT "NOVO TELEFONE:" 

485 INPUT TELEFONE$(X) 

490 GOTO 40 
492 REM 

494 REM ***** PROCURA DADOS ***** 

496 REM 
500 CLS 

510 PRINT "DIGITE O NOME DA PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR 1 = 1 TO NUM 

550 IF X$ < > NOME$(I) THEN GOTO 580 

560 PRINT "ENDERECO:";ENDERECO$(U 

565 PRINT "TELEFONE:";TELEFONE$(D 

570 PAUSE 600 

575 GOTO 40 

580NEXTI 

590 PRINT "NAO CONHECO ESTE NOME" 

595 GOTO 510 
600 REM 

610REM ***** LISTA DADOS ***** 

620 REM 
630 CLS 

640 FOR 1=1 TO NUM 

650 PRINT NOME$(I);" ";ENDERECO$(I);" ";TELEFONE$(I) 

660NEXTI 
670 PAUSE 600 
680 GOTO 40 
700 REM 

710REM ***** MODIFICAR DADOS ***** 

720 REM 
730 CLS 

740 PRINT "ENTRE O NUMERO DO REGISTRO A SER SUPRIMIDO:" 
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750INPUTX 

760IF X < 1 THEN GOTO 415 
770 IF X > 25 THEN GOTO 415 
780 LET NOME$(X)=" " 

790 LET ENDERECOS(X)=" " 
800 LET TELEFONE$(X)=" " 
900 GOTO 40 


Exercício 1, pág. 104. Faça um programa 
de animação gráfica para fazer um fo- 
guetinho desenhado na parte de baixo 
da tela subir em trajetória vertical até o 
topo da mesma. 

Solução: 

10FOR L=22TO 1 STEP -1 
20PRINTATL,15;"rfV" 

30 FOR J=1 TO 20 
40NEXTJ 
50PRINT AT L,15;" 

60NEXTL 


Exercício 3, pág. 104. Modifigue o pro¬ 
grama do Exercício 2 da página 104 pa¬ 
ra colocar um máximo de 100 asteriscos 
na tela. 


Solução: 

10RANDOM 
15FOR 1=1 TO 100 
20 LET X=INT(RND*30) +1 
30 LET Y = INT (RND*20) +1 
40PRINT AT Y,X;"*" 
50NEXTI 


Exercício 4, pág. 104. Faça um programa 
para desenhar uma torneira na parte su¬ 
perior da tela, e gue figue pingando go¬ 
tinhas de água continuamente (anima¬ 
ção gráfica da gota caindo). 

Solução: 

10PRINT AT 1, 10;"»" 

20PRINT AT 2, 10;"»" 

30 FOR 1=3 TO 20 
40PRINT AT 1,10;" ■ " 

50 FOR J=1 TO 20 
60NEXTJ 
70PRINT AT 1,10;" 

80NEXTI 
90 GOTO 30 


Exercício 1, pág. 107. Modifigue o pro¬ 
grama gue traça retas na horizontal, da¬ 
dos os pontos de início e fim, de modo 
que seja possível traçar retas na vertical. 

Solução: 

10 REM RETAS VERTICAIS 

15REM 

20PRINT AT 21,0;“ENTRE 
VALOR INICIAL DE Y :" 

30INPUTYI 


• 40 PRINT AT 21,0;''ENTRE 
VALOR 
FINAL DE Y :" 

50 INPUTYF 

60 PRINT AT 21,0;"EM QUE 
POSICAO VERTICAL :" 

70 INPUTX 
80 FOR Y=YITOYF 
90 PLOTXY 
100NEXT Y 
110 GOTO 20 

Exercício 2, pág. 107. Faça um programa 
para desenhar um retângulo qualquer 
na tela (apenas o seu contorno). O usuá¬ 
rio deverá fornecer as coordenadas X e 
Y de cada canto da figura. 

Solução: 

10 REM RETÂNGULO PARA O 
TK 

20PRINT "ENTRE 2 POSI- 
COES PARA LADOS HORI¬ 
ZONTAIS:" 

30INPUTY1 

40INPUTY2 

50PRINT "ENTRE 2 POSI- 
COES PARA LADOS VER¬ 
TICAIS:" 

60INPUTX1 

70INPUTX2 

80CLS 

90FORX=X1 TOX2 
100PLOTXY1 
110PLOT X,Y2 
120NEXTX 
130 FOR Y=Y1 TO Y2 
140PLOT XI,Y 
150 PLOT X2,Y 
160NEXT Y 

Exercício 3, pág. 107. Faça um programa 
para desenhar um retângulo qualquer 
na tela. O usuário deverá fornecer os se¬ 
guintes dados: coordenadas X e Y do 
canto inferior esquerdo do retângulo, ta¬ 
manho do lado horizontal e tamanho do 
lado vertical. 

Solução: 

10 REM RETÂNGULO PARA O 
TK 

12PRINT "COORDENADA X 
DA ORIGEM:" 

14INPUTX1 

16 PRINT "COORDENADA Y 
DA ORIGEM:" 

18INPUTY1 

20PRINT "TAMANHO DOS 
LADOS HORIZONTAIS:" 

30INPUT H 

50 PRINT "TAMANHO DOS 
LADOS VERTICAIS: 

60 INPUT V 
80CLS 

90FORX=X1 TOX1 + H 


100 PLOT X,Y1 

110PLCTX,Y1+V 

120NEXTX 

130 FOR Y=Y1 TO Yl+V 
140 PLOT XI,Y 
150 PLOT X1 + H,Y 
160NEXT Y 


Exercício 4, pág. 107. Como o programa 
acima poderia ser modificado para 
preencher completamente o interior do 
retângulo (ou seja, desenhar um retân¬ 
gulo sólido)? 

. Solução: 

10 REM RETÂNGULO PARA O 
TK 

12 PRINT "COORDENADA X 
DA ORIGEM:" 

14 INPUT XI 

16 PRINT "COORDENADA Y 
DA ORIGEM:" 

18INPUTY1 

20 PRINT "TAMANHO DOS 
LADOS HORIZONTAIS:" 

30 INPUT H 

50PRINT "TAMANHO DOS 
LADOS VERTICAIS:" 

60 INPUT V 
80CLS 

90FORX=X1 TOX1 + H 
130 FOR Y=Y1 TO Yl+V 
140 PLCTXY 
160NEXT Y 
170NEXTX 


Exercício 5, pág. 107. Faça um programa 
para traçar uma reta em diagonal, indo 
do canto inferior esquerdo ao canto su¬ 
perior direito da tela (atenção: este pro¬ 
grama tem apenas três linhas!) 

Solução: 

10 FOR 1=0 TO 40 
20 PLOT I, I 
30NEXTI 


Exercício 6, pág. 107. Modifique o pro¬ 
grama que desenha pontinhos ao acaso 
na tela para pedir ao usuário os limites 
inferior, superior, direito e esquerdo de 
um retângulo na tela, dentro do qual se¬ 
rão jogados os pontinhos. 

Solução: 

10RANDOM 
15 FOR 1 = 1 TO 100 
20 LET X=INT(RND*30) +1 
30 LET Y = INT(RND*20) +1 
40 PRINT AT Y,X;"*" 

50NEXTI 
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RESPOSTAS AO TESTE ANTERIOR 


Teste 3, pág. 98. Escreva um programa 
para realizar a seguinte tarefa: um clube 
de aficionados de microcomputadores 
deseja fazer uma lista de todos os seus só¬ 
cios, na qual conste a idade de cada um 
e a marca do microcomputador que pos¬ 
sui. O programa, depois de entrados os 
dados, informará: 

- o número de sócios que têm micro¬ 
computadores marca TK-85; 


Solução: 

10REM = = = = = = = = = = = = = = = = = 

20 REM CADASTRO DO CLUBE 
30 REM PARA TK-85 

40 REM = = = = = = = = = = = = = = = = = 

50 REM 

60 DIM NOME$(20,20) 

70 DIM IDADE(20) 

80 DIM COMPUTADOR$(20,12) 

90 LET SOCIOS = 0 
100 REM 

110REM ***** ENTRADA DE DADOS ***** 

120 REM 

130PRINT "ENTRADA DOS DADOS DOS SOCIOS." 

140PRINT "PARA TERMINAR DIGITE *" 

150PRINT 

160CLS 

170PRINT "SOCIO NO.";SOCIOS+1 
180PRINT AT 21,0;"NOME DO SOCIO:" 

190INPUT NOME$(SOCIOS +1) 

200IF NOME$(SOCIOS +1)="*" THEN GOTO 300 
210 LET SOCIOS=SOCIOS +1 
220PRINT "IDADE DO SOCIO:" 

230 INPUT IDADE(SOCIOS) 

’ 240PRINT "COMPUTADOR QUE TEM:" 

250 INPUT COMPUTADORS(SOCIOS) 

260 GOTO 160 
270 REM 

280REM ***** PESQUISAS ***** 

290 REM 
300 LET TK85=0 
310 LET APPLE=0 
320 LET SOMA= 0 
330 LET MENOR=99 
340 FOR 1=1 TO SOCIOS 

350 IF COMPUTADOR$(I)="TK-85" THEN LET TK85=TK85+1 
360 IF COMPUTADOR$(I)="APPLE" THEN LET APPLE=APPLE +1 
370 IF IDADE(I) (MENOR THEN LET MENOR = 1 
380 LET SOMA=SOMA+IDADE(I) 

390NEXTI 
400 REM 

410REM ***** RESULTADOS ***** 

420 REM 

430PRINT "SOCIOS COM TK-85=";TK85 

440PRINT "SOCIOS COM APPLE=";APPLE 

450 PRINT "OUTROS COMPUT. = ";SOCIOS-APPLE-TK85 

460PRINT 

470 PRINT "IDADE MEDIA="';SOMA/SOCIOS 
480 PRINT "SOCIO CACULA=";NOME$(MENOR) 

490STOP 


- o número de sócios que têm micro¬ 
computadores marca Apple; 

- o número de sócios que têm outros ti¬ 
pos de microcomputador; 

- a idade média dos sócios do clube; 

- o nome do sócio mais novo do clube. 

Utilize conjuntos unidimensionais 
chamados NOME$, IDADE e COMPU- 
TADOR$ para registrar os dados acima. 
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